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i. ABSTRACT 


Tests CT LOnING VERIFY THAT THE RPOY DUAL CONTROLLER LOGIC 
ON ine Ay RLY. ONLY THE CONTROL 


1S FUNCT PE NLY LOGIC 15 TESTED 
SY THIS P DATA HANDLING IN THE DUAL CONTROLLER MODE 
IS NOT Tefen wt THIS PROGRAM. 


BOTH PORTS OF THE RPOY ARE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
CONTROLLER LOGIC TO BE TESTED FROM ONE PDP-1i/RH70. 


ris PROGRAM IS THE FIRST PART OF THE DUAL CONTROLLER Nabi. 
OGIC TEST. ALL OF THE DUAL CONTROLLER OPTION LOGIC, EXCEPT 


The LOGIC ASSICIATED WITH THE UNLOAD COMMAND AND THE CONTROLLER 
SELECT SWITCH, IS TEST BY THIS PROGRAM. 


2. REQUIREMENTS 


2.1 EQUIPMENT 
re Ae PROCESSOR 
KWil-L OR KW11-P CLOCK 
TELETYPE 


RH70 WITH AN RPO 
RPOY DUAL CONTROLLER OPTION TEST CABLE 


2.2 PRELIMINARY PROGRAMS 


RPOY DISKLESS a ae TEST 
PART 1 (MAINDEC-11-DERPS) 
PART 2 (MAINDEC-11-DERPT) 


RPOY FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DERPU) 
PART @ (MAINDEC-11-DERPV) 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH CONTROLLER (PORT). 


2.3 OTHER PROGRAMS 


A. THE OPERATION OF THE UNLOAD ” 


MMAND AND THE OPERATION 
RPOt pf ON TROLLER ELECT’ SWI yeh ARE & Tested BY THE 


BIKRESREBRBVERLOVE DY swoVru ew O0 Ie Le ww ae Loto to bee ae 


0 bs OB * = = 0-2 B82 2 O22 Oo 2 F< 0 6-2 B= P+ B-2 = B= 8-2 B28 2 h- 2 8-2 & 2 2 0-2-2962 29-0) 2&2 0-29 -< H-- po 


LOGIC TEST, PART 2 (MAINDEC-11- 
B. yan RATION OF THE DUAL CONTROLLER OPTION IS 
33 ESTE HE RPOY MULTIDRIVE EXERCISER (MAINDEC-11- 
40 RPN-B). NOTE THAT THE RPOY EXERCISER MUST BE 
41 PROGRAM REVISION 'B’ OR LATER. REVISION ’A’ OF THE 
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142 RPOY EXERCISER DOES NOT SUPPORT DUAL CONTROLLER CPERATION. 
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146 3. LUADING PROCEDURES 
es aS ee ee ce 
149 E PROGRAM MAY BE LOAQED BY THE ABSOLUTE FAPER TAPE 
150 (On DER OR T MAY BE LOAD FROM THE APPROIATE MEDIA 
151 USIN THE ASSOCIA "x40 LORDED. THE PROGRAM MAY BE 
138 INCLUDED IN AN 'XXDP’ 
154 
155 i 
138 4. STARTING PROCEDURES 
ids 
158 4.1 STARTING ADDRESSES 
161 A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
l 200(8}. STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
ig3 TO SELECT (OR RESELECT) THE DRIVE ADDRESS OF THE DCL TO 
16s BE TESTED. 
166 8. THE RESTART ADDRESS IS LOCATION 204(8). THE PROGRAM 
167 WILL USE THE CURRENT DRIVE (DCL) ADDRESS 
169 C. THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW 
170 THE RH70 ADDRESS TO BE CHANGED. 
176 4.2 UNIBUS & VECTOR ADDRESSES 
174 THE PROGRAM ASSURES THE FOLLOWING UNIBUS AND VECTOR 
175 ADDRESSES. THESE ADDRESSES MAY BE CHANGED PRIOR TO _ 0 
| 17% INITIATING A PROGRAM START ar ANY OF THE STARTING LOCATIONS. SS ye 
tay : 
1 4 r “} 
i73 LOCATION CONTENTS FUNCTION 
181 
i il 177560 TATUS REG 
is i ec ae 
| iB Hie 17a e PRINTER SUFFER ee 
186 1204 172540 KWLLeP STATUS REG 
187 1206 172542 KW11 
188 1210 - 104 KW11- SS 
189 lel2 177546 KWL 1-L SFaTuS REGISTER 
| $99 1214 100 KW VECTOR ADORESS 
191 1270 176700 ADDRESS 
ig 1272 254 RH70 INTERRUPT VECTOR ADDRESS 
| 134 4.3 OPERATOR ACTION 
| i ms f aus 8 ONT THE ai ari ae OE mat as 
\ e 
| 198 B. LOAD oie PROGRAN NT PROPER PROCESSOR. 
$35 . TESTED TO" TO ave’ POS Msi eM te oT oP butane 
201 D. LOAD THE Te eee Post oN “eit (oe obs) OR 2i0¢@)) 
| 


ee a er es ee Se Se Or ee Oe eo eS eee ee ees ese se es ee a a ee ere 
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20e INTO THE SWITCH REGISTER. 
293 E. PRESS START. 

O4 F. ENTER THE DRIVE NUMBER. (THIS MUST BE THE NUMBER 
os DISPLAYED IN THE DRIVE NUMBER LED ON THE CONTROL 


ee a ee ee nee ee ee ees emcee am eae -eeemn ere meesarene—aer: 





os 


oF 


PANEL. } 

G. ENTER THE NUMBER OF THE TEST TO BE RUN 

H. THE PROGRAM CAN BE STOPPED AT ANY TINE AND RESTARTED 
FROM LOCATION 204. 


Bee 


S. OPERATING PROCEDURES 


S.1 OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


furururururururuforu 
OIC UI £UIfUH~-O 


rue 
fu 
bee 


222 
223 SW<15)=1...HALT ON ERR OR 
z25 Buc13>=1.., INHIBIT ceeoR TYPEOUTS 
226 SW<11>=21... INHIBIT TEST ITERATIONS 
227 SW<10>=1...RING TTY BELL ON ERROR 
sce SW<09>=1...LO0P ON ERROR 
230 5.2 TEST SELECTION 
232 NOIVIDUAL pr recent SEL CTED IN SPONSE TO THE "ENTER 
e33 NY VALID reer NUMBER CAN CAN BE 
T conn TE TCH S>, MUST BE SET 
ex OE igh ine tot a ate joc 
53 ay Rue Pat a Re iN TURN OR A EARET OEE pr THER By STSELES OnE PROG 
eG Me ice THEN EX per eute ar TESTS IN SE £ UNTIL IT IS HALTED. 
B42 THE 'RUBOUT KEY’ (RO) CAN BE USED TO DELETE THE LAST 
Enel CHARACTER ENTERED. SUCCESSIVE STUCKING AT THE RO KEY 
e44 WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
24S TED. CHARACTERS DELETED BY THE RO KEY WILL BE 
o46 TYPED AND WILL BE SEPARATED BY ’\’ FROM THE CHARACTERS 
Pal ENTERED BY OPERATOR. 
249 THE OPERATOR CAN DELETE THE ENTIRE ENTRY BY TYPING A 
250 - *CONTROL U’ (TU). 
eee ) 5.3 TEST CABLE CONNECTION 
224 TO TEST THE RPOY puaL CO CONTROLLER OPTION. WITH THIS PROGRAM, 
255 A SPECIAL TEST CABLE MUS TBE USED. TEST CABLE IS 
256 P/N 7010507 THE TEST SONNECTS MASSBUS A & MASSBUS 
257 B TOGETHER AT THe RBM BEING TESTED AND IS CONSTRUCTED SO 
eb THAT BIT O OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 
260 WITH THE TEST CABLE CONNECTED TO THE RPO4 UNDER TEST, 


THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH’ PORT 


& 
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ebe OF THE RPOY WILL RESPOND TO A DIFFERENT MASSBUS ADORESS. 
263 THE ADDRESS OF EACH PORT WILL DEPEND UPON THE ORIVE'S 
eet ADDRESS (THE ADDRESS SGLECTED BY THE SWITCHES ON THE 

5 *DP’ BOARD - MODULE 7775S.) 
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66 
ops “THE E PROGRAM WILL TYPEOUT THE APPARENT RODRESSES OF 80TH 

BORER POR? HELE HAVE THE MBOREES CEVELOPED BY THE CABLES” 
e271 HHEE KL KEE RE KEKE LES KERR ERE LEEK EE EEA KEELE ERLE HERE E LL FS SLE LER ELS 
27 : ANY DEVICE ON THE SYSTEM (RPO4Y OR NON-RPOY DEVICE) WHICH ‘ 
F % HAS ANY ADDRESS IN CONFLICT WITH EITHER OF THE TEST 
274 x SES MUST BE T F. ; 
ie HREKKKSSLELLKELR LE LLSE EE RRE RE KEE LSE RERE ES ERES LAE LEELA LAERE 
277 : THE TEST CABLE CONNECTION TO THE RPOY UNDER TEST WILL 
278 DEPEND ON WHICH PROCESSOR/RH70 IS TO TEST THE REO, IF 
279 THE RPOY IS TO BE TESTED BY THE PROCESSOR ON PORT A 
280 THE TEST CABLE I CTED FROM ’ T’ TO BUS B IN’ 
281 IF THE RPOY IS TO BE TESTED BY PROEESSOR ON ; 
82 TEST CABLE IS CONNECTED FROM ’BUS B OUT’ TO BUS A’IN’. 
2o4 WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 


WHEN THE PROGRAM ENCOUNTERS AN ERROR THE . ERROR ROUTINE IS 
CALLED AND THE SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 
TO THe E ERROR WILL ILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 


- AN ERROR MESSAGE 
B. A DATA HEADER LINE 
DATA LINE CONTAINING: 


PCat Rune auc at 
“~ 


A 
1. THE TEST NUMBER 

308 2: THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 

ai 3. CONTENTS OF THE APPROPIATE REGISTERS 

313 ; 

314 

316 ? MISCELLANEOUS 

317 . 

318 7.1 RESTRICTIONS 

320 TQ RUN THIS PROGRAN, THE SYSTEM MUST HAVE EITHER @ KUl1-P 

321 OR A KWil-L CLOCK. TIONALLY, THE RPOY UNDER TEST 


| 
| 
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MUST HAVE THE DUAL PORT TEST CASLE CONNECTED. 


53 
se 

324 7.2 LIMITATIONS 
325 












332 7.3 







337 7.4 
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iTS PROGRAM DOES NOT TEST DATA OPERA fon THROUGH a 

rent Pree Nor TEST THE BYNArTE Ore aa THE a 

CONTROLLER OPTION, AND DOES N TEST NLOAD COM 

OR THE OPERATION OF THE ye eee SELECT  BuITCH ON MTHE DRIVE. 
(REFER TO PARAGRAPH 2.2 & 2 

EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 4S SECONDS. 
SUBSEQUENT PASSES TAKE @.5 MINUTES. 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1100 AND EXTENDS DOWNWARD 
IN MEMORY. 


PASS 2 AND 


SUBROUTINE CALLS 
THE SUBROUTINE CALLS USED BY THE PROGRAM ARE: 


A. SCOPE’ (IOT INSTRUCTION). THIS CALL IS PLACED BETWEEN 
EACH el IN THE INSTRUCTION. THIS ROUTINE we 


THE ITERATION COUNT AND THE LOOP ON TEST AND LOOP 
RROR ADDRESSES. 


B. ERROR’ (EMT INSTRUCTION). 
ERRORS. THE CALL IS FOLLOWED BY_A NUMBER WHICH IDENTIFIES 
THE ERROR NESSAGE WHICH WILL BE TYPED. 


ie in INSTRUCTION IS USED FOR THE FOLLOWING SUBROUTINE 
TAL NUNB eR { He THe 
- - Hee acta ABE 


N BY) 
:f HE 


ee - iB eo Ty ie 


OM THE pA KEYBOAR 
AD_AN OCTAL M THE TTY KEYBOARD 
RROUTINE TO SAVE Ri 


ROUTINE TO RESTORE “RO-RS 


en - TTY TYPEOUT 


SaVREG ~ 


REQUIRED TESTS 


IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 
rene CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 


A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
Pgh J THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH 


B. TEST 4 TEST 5. THESE TESTS SET *VV-A’ AND *VV-'B, 
RESPECTIVELY. THESE TESTS MUST BE PERFORMED AT lEast” ONCE 
BEFORE TESTS 6 - 46 ARE RUN. 


THIS CALL IS USED TO REPORT ALL 
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385 THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
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Sag MUST BE CYCLED UP AND ON LINE FOR THE DIAGNOSTIC TO BE 


7.8 TEST ITERATIONS 
pea ay IS PERFORMED ONCE ON THE FIRST PASS THROUGH THE 


RAM. _ON THE SECOND AND SUBSEQUENT PASSES THROUGH THE 
PrOceat EACH TEST IS PERFORMED THE FOLLOWING NUMSER OF 


ITERATION COUNT 


TEST NO. CIN DECIMAL) 
O1 1 
Oe 10 
03 10 
o4 1 
95 1 
06 4000 
07 4000 
10 100 
11 100 
12 4000 
13 4 
14 4 
15 4 
16 yoo0 
17 4oo0 
20 4o00 
21 4000 

4o00 
23 4O00 
24 4000 
25 4ooo 
27 4ooo 
0 4000 
1 4 
32 
33 4oo0 
34 4000 
35 
36 
Pe y 
40 4 
ui: 4 
42 
43 4Oo0 
44 4o00 
4S 4O00 
46 4000 


IF AN ERROR OCCURS IN A TEST, THAT TEST WILL BE PERFORMED 
ie “ae THE OCCURRENCE OF AN ERROR FORCES THE ITERATION 


TESTS PERFORMED IN THE SINGLE TEST MODE WILL BE ITERATED 


me ee ee - eee 











B02 


pci Fe tas RPOY DURL CONTROLLER LOGIC TEST - FART 1 MACY11 271732) O4-CCT-76 10:31 PAGE iS 


eo” ée 
= THE NUMBER OF TIMES SPECIFIED By THE ITERATION COUNT F7® 
+4 THE TESF" S SPECIFIED By THE ITERATION COUNT F° 
wae 
“45 7.9 LOOP ON ERROR OPTION 








MO<L1-DERPP-A, RPOY QUAL CONTROLLER LOGIC TEST - PART 1 MACY11 27(732) O4-OCT-76 10:31 PAGE if 
DERPPA.Pil 


& 


IF Sw<O9> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 

UNTIL per ee i HE ‘slic IS R RESET OR Bc ERROR STOPS OCCURING. 
BECAUSE THE PRO T RESET T 
BEFORE LOOPING ON ate ERROR. THE HE Ee OF oR: Scos 1S PERFORMED 
AT THE END OF THE TEST - NOT AT THE POINT WHERE TRE ERROR 
WAS DETECTED 

: TEST DESCRIPTION 


8.1 METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 


THE PROGRAM DETERMINES IF AN RPOY IS IN NEUTRAL BY CHECKING 
THE CONTENTS oF THE ORIVE STATUS REGISTER (RHDS1) THROUGH . 

H PORTS. THE PROGRAM MASKS OUT THE PORT BEBENDENT BITS 
C rata 8 sow 2 poets VERIFIES THAT CORRECT STATUS IS READ 

HE CORRECT ratus 1 IS ’MOL’ trope 

TOpRS Bony” IF NEITHER PORT Se BLL ZEROS FROM 
RHOSL HE PROGRAM CONCLUDES THAT ste DRIVE IS IN NEUTRAL 
hats ANY BIT 1 DISCREPANCY BE TWEEN PORTS INDICATES A 
PATLURE IN THAT 


8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 


RPDS RR ASA nal oun Guba acura Ps 


| 
3 Pee ere 
| u7y § se1ZING mans Rel eIRY CORREGT STATUS I 
READ THROUGH THE OPPOSITE PORT, 
| 476 SEEN. me BOTH CONDITIONS EXIST, (I°E. 
477 Connect STA S THRUSH SEIZING PORT AND ZEROS THROUGH 
| yg THE OPPOSITE THE PRoGRAA CONCLUDES THAT THE DRIVE 
13 HAS BEEN SEIZED By’ THE SPECIFIED PORT. 
483 8.3 TEST 1 - DRIVE ACCESS TEST 
13 VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 
| 4BE A. SELECT DRIVE, VERIFY THAT THE ORIVE IS PRESENT 
| DRIVE Ty eabOM port SPC. ! meeiTg SEP), 8 Re (Sts 
ee NUMBER READ THROUGH’ esr PORTE 1S THE Same 
130 B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
492 
433 8.4 TEST 2 - PORT ’A’ SEIZE/TIMEOUT TEST 
495 . VERIFY THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
4% THE DRIVE. 
i ‘ * 
/ gp ! A. WRITE O'S fit2 RHDS1 THROUGH PORT ’A’; VERIFY THAT THE DRIVE 
499 HAS BEEN SEIZED. 


£01 B. READ EACH DRIVE REGISTER, EXCEPT RHCS1, THROUGH PORT °B’; 





a . - . ane a een ne ee a ervreee= 





| 
i 
| 
| 
| 


5 


2 


5o3 
5u4 


5 


Js 


tee 


—=+-- - 


+ eens = 


i ers 


C. 


VERIFY THAT O’S ARE READ FROM EACH REGISTER. 
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WAIT FOR THE PORT TIMEOUT TO OCCUR AND RELEASE THE DRIVE. 
MERSURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
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508 VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
508 NEUTRAL. 

20 

ei 8.5 TEST 3 - PORT °B’ SEIZE/TIMEOUT TEST 

25 VERIFY THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
at THE DRIVE. 

516 A. WRITE 0’S INTO RHDS1 THROUGH PORT 'B’; VERIFY THAT THE DRIVE 

et HAS BEEN SEIZED. 

518 B. READ EACH DRIVE REGISTER, EXCEPT RHCS1 THROUGH PORT ’A’; 


VERIFY THAT 0’S ARE READ FROM EACH REGIST 
C. WAIT FOR THE PORT TIMEQUT TO ou, AND RELEASE THE DRIVE. 


MEASURE THE DURATION OF SHOT AND SAVE THE 
a Mi LATER USE. VERIFY TH TIMEOUT RETURNED THE DRIVE TO 


8.6 TEST 4 = PORT ’A’ COMMAND SEIZE TEST & SET ’VV-A’ 


VERIFY THAT THE DRIVE IS SEIZED WHEN A COMMAND IS ISSUED. SET ’VV’ 
FOR THE PORT UNDER TEST. 


A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT °A’. VERIFY THAT THE 
DRIVE WAS SEIZIED BY PORT ’A’ AND THAT THE ’GO’ BIT RESET. 


B. ISSUE A READIN PRESET COMMAND THROUGH PORT ’A’. VERIFY THAT THE 
"VV" BIT WAS SET FOR PORT 'A’ AND THAT THE *VV’ BIT WAS NOT SET 


FOR PORT 'B’. (NOTE THAT THE ’VV’ BIT_NOT BEING 3 FOR te 
*B’ CAN ONLY BE TESTED THE FIRST TIME THROUGH THE PROGRAM. ) 


C. STALL FOR 2 SECONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED 
THE DRIVE AND THE THE DRIVE RETURNED TO NEUTRAL. 
8.7 TEST 5 - PORT ’B’ COMMAND SEIZE TEST & SET ’VV-B’ 


VERIFY THAT THE ORIVE IS SEIZED WHEN A COMMAND IS ISSUED. SET ‘Vv’ 
FOR THE PORT UNDER TEST. | 


rm Rive hae aeiziED BY POR BT ! 2! THAY THE’ Go" VERT Reset. te 


USERS Sera Ar tims ies ei it tt 


cu 

css B. ISSUE A READIN PRESET COMMAND THROUGH PORT °B’. VERIFY THAT THE 

z5e "VV? BIT FOR PORT 'B’ WAS SET. 

bee ¢. STaL FOR CONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED é 
HE ORIVE HE RETURNED TO NEUTRAL. 


ee re EE ES SS RT A 





8.8 TEST & = TEST RELEASE, DRIVE SEIZED SY PORT ’A’ 


Bes TEST THE OPERATION OF THE RELEASE COMMAND, ORIVE SEIZED 
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8.9 


8.10 


8.12 


8.13 


A. SEIZE THE ORIVE THROUGH PORT ’A’ BY WRITING 0°S INTO RHOS1. 

B. ISSUE A RELEASE COMMAND THROUGH PORT’A’. VERIFY THAT THE DRIVE 
aie TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 

TEST 7 - TEST RELEASE, ORIVE SEIZED BY PORT °B’ 

TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 

A. SEIZE THE DRIVE THROUGH PORT °B’ BY WRITING O’S INTO RHDS1. 


8. ISSUE A RELEASE COMMAND THROUGH PORT °8’. VERIFY THAT THE DRIVE 
pared TQ NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 


TEST 10 - TEST RELEASE THROUGH PORT 'A’, DRIVE IN NEUTRAL 

TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 

A. ISSUE A RELEASE COMMAND THROUGH PORT °A’ WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 

TEST 11 - TEST RELEASE THROUGH PORT °B’, DRIVE IN NEUTRAL 

TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 

A. ISSUE A RELEASE COMMAND THROUGH PORT °B’ WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 

TEST 12 - TEST THAT CLEAR’ DOES NOT CAUSE RELEASE FROM PORT °A’ 


yER ry, er 4 pegs eUR tee OR ORIVE CLEAR WILL NOT CAUSE THE SEIZING 


A. SEIZE THE DRIVE BY WRITING 0’S INTO RHDS1 THROUGH PORT ’A’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


B. ISSUE A DRIVE CLEAR THROUGH PORT 'A’ AND VERIFY THAT THE DRIVE 
oo NOT RETURN TO NEUTRAL. 


C. Sar CLEAR THROUGH THE RH70 AND VERIFY THAT THE DRIVE 
BoE NOT 0 NEUTRAL. 


D. RELEASE THE ORIVE THROUGH PORT °A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 13 - TEST THAT 'CLEAR’ DOES NOT CAUSE RELEASE FROM PORT °B’ 


VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 





oenee eee eee ee wm me a me i a mm nn ee te ey 
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- DERPPA. 
«Bee 
623 A. SEIZE THE DRIVE BY WRITING 0’S INTO RHDS1 THROUGH PORT ’B’. 
be VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


LLL TL SS SSS sss s lst s S 


OO ar a ce TS a NES 
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8.14 


8.15 


8.16 


B. ISSUE A DRIVE CLEAR THROUGH PORT 'B’ AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


C. ISSUE A MASSBUS CLEAR THROUGH THE RH70 AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


D. RELEASE 1s DRIVE THROUGH PORT ’ VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEI HER ATTENTION BIT IS SET. 
TEST 14 - TEST RESET ATTENTION ’A’ BY MASSBUS CLEAR 


VERIFY THAT A MASSBUS INITIALIZE CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. set EACH PORT ’S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


B. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O°S INTO RHDS1. 
. ISSUE A MASSBUS CLEAR. 
D. RELEASE THE DRIVE THROUGH PORT 'A’. VERIFY THAT THE ATTENTION 
BIT FOR PORT ’A’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
*B’ IS STILL SET. 
TEST 15 - TEST RESET ATTENTION ’B’ BY MASSBUS CLEAR 


VERIFY THAT A MASSBUS INITIALIZE CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. set EACH PORT’S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


B. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’°S INTO RHDS1. 
C. ISSUE A MASSBUS CLEAR. 


D. RELEASE THE ORIVE THROUGH PORT 'B’. VERIFY THAT THE ATTENTION 
744 FoR ee Br. HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 


TEST 16 - TEST CLEAR ATTENTION. BY MASSBUS INIT - DRIVE IN NEUTRAL 


VERIFY THAT MASSBUS CLEAR bOES. NOT RESET ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL. 


SET THE ATTENTION BITS FOR BOTH PORTS. 
VERIFY THAT THE DRIVE IS IN NEUTRAL. 
Teoue A MASSBUS INIT. VERIFY THAT NEITHER ATTENTION BIT HAS 


yr PF 
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682 
683 
684 
685 





8.17 


TEST 17 - TEST SEIZE BY RHCS1 READ THROUGH PORT ’A’ 


VERIFY THAT READING THE CONTROL REGISTER (RHCS1) SEIZES THE DRIVE. 
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&.18 


8.19 


8.20 
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TEST 20 - TEST SEIZE BY RHCS1 READ THROUGH PORT °B’ 
VERIFY THAT READING THE CONTROL REGISTER (RHCS1) SEIZES THE DRIVE. 
A. 


TEST 2i - TEST ’PORT REQUEST’ FROM PORT ’A’ 


VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER P 


A. 
B. 


Cc. 


TEST 22 - TEST PORT REQUEST FROM PORT ’B’ 


VERIFY THAT WRITING A DRIVE REGISTER SETS *PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


C. 
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READ THE CONTROL REGISTER (RHCS1) THROUGH PORT °A’; VERIFY THAT 
THE ORIVE IS SEIZED. 


ISSUE A RELEASE COMMAND THROUGH PORT ’°A’; VERIFY THAT THE ORIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 3IT IS SET. 


READ THE CONTROL REGISTER (RHCS1) THROUGH PORT ’B’; VERIFY THAT 
THE DRIVE IS SEIZED. 


ISSUE A RELEASE COMMAND THROUGH PORT ’B’; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 








SEIZE THE DRIVE THROUGH PORT ’°8’ BY WRITING 0’S INTO RHDS1. 


WRITE O’S INTO RHDS1 FROM PORT ’A’; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT ’B’. on 


ISSUE A RELEASE COMMAND FROM PORT °B’ AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT ’A’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT A’ AND IS NOT SET FOR PORT ’B’. 


ISSUE A RELEASE COMMAND THROUGH PORT ’A* AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RHDS1. 


WRITE 0’S INTO yg FROM PORT 'B’; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT 


ISSUE A RELEASE COMMAND FROM PORT ’A’ AND VERIFY THAT THE DRIVE 
pe etey TO PORT *B’. VERIFY THAT P ies ATTENTION BIT IS SET FOR 
"B’ AND IS NOT SET FOR PORT ' 


ISSUE A RELEASE COMMAND THROUGH PORT °B’ AND VERIFY THAT THE ORIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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ois 
| fy | 
ca 8.21 TEST 23 - TEST NO ’PORT REGUEST’ WHEN READ RHCS1 THROUGH PORT 'A’ 


a 
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B. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. 





745 VERIFY THAT READING THE CONTROL REGISTER ‘RHCS1) DOES NOT SET ‘PORT 
at REQUEST’. 
249 Q. SEIZE THE DRIVE THROUGH PORT '8’ BY READING RHCS1. VERIFY THAT 
at THE DRIVE HAS BEEN SEIZED. 
753 B. READ THE CONTROL REGISTER FROM PORT ’A’. VERIFY THAT "DVA’ IS NOT 
755 = 
756 C. ISSUE A RELEASE COMMAND THROUGH PORT ’B’. VERIFY THAT THE DRIVE 
757 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
759 
750 9.22 TEST 24 - TEST NO PORT REQUEST’ WHEN READ RHCS1 THROUGH PORT ’B’ 
72 VERIFY THAT READING THE CONTROL REGISTER (RHCS1) DOES NOT SET ’PORT 
763 REQUEST’ . 
76S Q. SEIZE THE DRIVE THROUGH PORT °A’ BY READING RHCS1. VERIFY THAT 
766 THE DRIVE HAS BEEN SEIZED. 
768 
763 B. READ THE CONTROL REGISTER FROM PORT ’B’. VERIFY THAT "DVA’ IS NOT 
771 : 
772 C. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
73 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
775 
27 8.23 TEST 25 - TEST RELEASE BY PORT ’A’ WHEN SEIZED BY PORT ‘B’ 
778 VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
773 1S SEIZED BY THE OTHER PORT. 
7el Q. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0’S INTO RHDSL. 
| 783 B. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. 
78 C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ’B’. 
787 D. RELEASE THE DRIVE THROUGH PORT ’B’. VERIFY THAT THE DRIVE SWITCHED 
788 TO PORT ’A’. 
790 E. RELEASE THE DRIVE THROUGH PORT ’°A’. VERIFY THAT THE DRIVE RETURNED 
| 731 TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
793 
| 734 8.24 TEST 26 - TEST RELEASE BY PORT ’B’ WHEN SEIZED BY PORT ’A’ 
oon Ss VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
| 730 IS SEIZED BY THE OTHER PORT. 
Pe 7 eee @. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RHOSL. 
| : 
| 
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Bo3 C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ’A’. 
| 805 D. RELEASE THE DRIVE THROUGH PORT A’. VERIFY THAT THE ORIVE SWITCHED 
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08 70 PORT ‘B’. 
858. E. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE FETURNED 
s3 76 NEUTRAL ANO THAT NEITHER ATTENTION BIT IS SET. 
8}! } 
gle 8.25 TEST 27 - TEST SEIZE BY WRITING ATTENTION BIT 
5:4 TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
ei GRHAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
Shed 
ie A. WRITE THE APPROPRIATE DRIVE BIT INTO RHAS; VERIFY THAT THE DRIVE 
ei3 1S SEIZED. 
521 8. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY. THAT THE 
822 DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE OUGH THE 
es OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NELT 
5 
zee €.26 TEST 30 - TEST NO SEIZE WHEN ’O’ WRITTEN INTO ATTENTION BIT 
828 VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A *ZERO’ IS WRITTEN INTO 
55 THE DRIVE’S ATTENTION BIT. 
B31 A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
B22 BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 
es 8. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 
B26 
37 2.27 TEST 31 - TEST PORT 'A’ TIMEOUT DOES NOT RESET DRIVE 
E39 VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
7, 
Bl A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O°S INTO RHDSL. 
B43 B. WRITE 1°S INTO RHERI THROUGH PORT ’A’. 
gus C. WAIT FOR THE ORIVE TO TIMEOUT. VERIFY THAT THE ORIVE RETURNED TO 
B4E NEUTRAL THAT ATTENTION IS SET FOR PORT ’A’ AND IS NOT SET FOR 
eat PORT '8'; AND THAT BOTH PORTS SEE 1’S IN THE ERROR REGISTER. 
Exc 
gs 8.28 TEST 32 - TEST PORT 'B’ TIMEOUT DOES NOT RESET DRIVE 
zee VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
54 : A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RHDSI. 
Ese 8. WRITE 1’S INTO RHER1 THROUGH PORT ’B’. 
ese C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
g59 NEUTRAL; THAT ATTENTION IS SET FOR PORT "B’ AND IS NOT SET FOR 
PORT ‘A’; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
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8.29 TEST 33 - TEST RELEASE THROUGH PORT 'A® WITH ERRORS SET 
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854 
VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
! 
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RPPA. 
B66 BiTS ARE SET IN THE ORIVE. 
B58 A. SEIZE THE DRIVE THROUGH PORT 'A’ BY WRITING 0’S INTO RHDS1. 
B20 B. WRITE 1’S INTO RHER1 THROUGH PORT ’A’. 
872 C. ISSUE A RELEASE COMMAND THROUGH PORT 'A’. VERIFY THAT THE 'GO’ 7 ‘ie 7 
873 BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND ae i 
Bc THAT RHERI HAS NOT BEEN CLEARED. Tt! | 
e768 D. CLEAR RHER! BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’A’. 
878 E. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
te RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
881 
ee 8.30 TEST 34 - TEST RELEASE THROUGH PORT 'B’ WITH ERRORS SET 
eoy VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BES BITS ARE SET IN THE DRIVE. 
ge? A. SEIZE THE ORIVE THROUGH PORT ’B’ BY WRITING O’S INTO RHDS1. 
ee3 8. WRITE 1°S INTO RHER1 THROUGH PORT ’B’. 
89} C. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE °GO’ 
RaB gir 78s RESET THAT Bi DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
ae T RHERI HAS NOT BEEN CLEARED. 
| BGs D. CLEAR RHERI BY ISSUING A DRIVE CLEAR COMMAND THROUGH P 
| ESS E. ISSUE A RELEASE COMMAND THROUGH PORT °B’. VERIFY aoare ane BRIVE 
| 97 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
£39 
500 8.31 TEST 35 - TEST TIMEOUT RETRIGGER THROUGH PORT ’A’ 
He VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
oo A. SEIZE THE DRIVE THROUGH PORT A’ BY WRITING 0’S INTO RHDS1. 
| 96 B. WAIT MS AND WRITE 0’ INTO RHOS THROUGH PORT ’ 
$07 C. VERIFY THA HE TIMEOUT OCCURS WITHN + OR - 25% OF THE SPECIFIED 
308 TIME. (THE MEASUREMENT IS MADE MERON STEP 'B’. 
} 
/ 10 D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
| i BIT IS SET. 
| 913 
| Ht 8.32 TEST 36 - TEST TIMEOUT RETRIGGER THROUGH PORT ’B’ 
zi VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
218 A. SEIZE THE ORIVE THROUGH PORT ’B’ BY WRITING O’S INTO RHDS). 
60 B. WAIT SOO MS AND WRITE 0'B INTO RHDS1 THROUGH PORT ‘A’. 
} 
j 
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DERPPA.Pil 
: See C. VERIFY THAT THE TIMEOUT OCCURS WITHN + OR - a OF THE SPECIFIED 
asd TIME. (THE MEASUREMENT IS MADE FROM STEP ’B’. 
325 D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
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326 BIT IS SET. 

a8 

asa 8.33 TEST 37 - TEST NO TIMEOUT THROUGH PORT ’A’ 

931 VERIFY THAT THE TIMEOUT ONE-SHOT IS NOT TRIGGERED WHEN THE DRIVE 
ass SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 

az? A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RHOS1. 
ae B. SET PORT REQUEST BY WRITING 0’S INTO RHDS1 FROM PORT ’A’. 

$33 C. ISSUE A RELEASE COMMAND FROM PORT ’B’. VERIFY THAT THE BRIG 
$33 HAS SWITCHED TO THE OTHER PORT AND HAT THE ’ATA’ BIT DID NOT 
eat SET FOR PORT ’B’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ’A’. 
S42 D. WAIT THE TIMEOUT INTERVAL + 2S%. VERIFY THAT THE DRIVE HAS NOT 
ra BEEN RELEASED. 

S45 E. RELEASE THE DRIVE THROUGH PORT °A’. VERIFY THAT THE DRIVE 

ave RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

S48 

949 8.34 TEST 40 - TEST NO TIMEOUT THROUGH PORT °B’ 


VERIFY THAT THE TIMEOUT ONE-SHOT IS NOT TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RHDS1. 

B. SET PORT REQUEST BY WRITING 0’S INTO RHDS1 FROM PORT ’B’. 

C. ISSUE A RELEASE COMMAND FROM PORT ’A’. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 
SET FOR PORT ’A’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ’B’. 

D. WAIT THE TI wee INTERVAL + 25%. VERIFY THAT THE DRIVE HAS NOT 
BEEN REL! 

E. RELEASE THE DRIVE THROUGH PORT ’B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

8.35 TEST 41 - TEST PORT °A’ ATTENTION AFTER A COMMAND 
ji 2 THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 


A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ’A’. 


8. id] FOR i Pace aR vf COMMAND TO COMPLETE (’DRY’ TO BECOME 
*1')._ VERIFY THAT THE ATTENTION BIT FOR PORT °A’ IS SET AND 
THAT THE ATTENTION BIT FOR PORT ’B’ IS NOT SET. 


C. RELEASE THE DRIVE THROUGH PORT ’°A’. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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$83 
$84 8.26 TEST 42 - TEST PORT 'B* ATTENTION AFTER A COMMAND 
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TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 


A. 
8. 


ISSUE A RECALIBRATE COMMAND THROUGH PORT ’B’. 


WATT FOR THE yc a COMMAND TO COMPLETE (’ORY’ TO BECOME 
*}._ VERIFY THAT THE ATTENTION BIT FOR PORT ’B’ IS SET AND 
THAT THE ATTENTION BIT FOR PORT ’A’ IS NOT SET. 


RELEASE THE DRIVE THROUGH PORT ’B’. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


8.37 TEST 43 - TEST PORT INTERACTION FROM PORT ’A’ 
VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 


A. 
B. 
C. 


SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RHDS1. 
WRITE 1’S INTO RHER1, RHER2, & RHER3 THROUGH PORT ’A’. 


READ RHER1, RHER, & RHERS THROUGH PORT 'B’. VERIFY THAT PORT 
"B’ SEES O'S FROM’EACH OF THESE REGISTERS. 


CLEAR RHERI, RHER2, & RHERS THROUGH PORT 'A’. 


WRITE 1°S INTO RHER1, RHER2, & RHER3 THROUGH PORT ’B’. VERIFY THAT 
PORT ’A’ SEES O’S FROM EACH OF THESE REGISTERS. 


RELEASE Te DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE HAS 
SWITCHED TG PORT °B’ AND THAT THE ATTENTION BIT FOR PORT 'B’ IS 
SET AND THE ATTENTION BIT FOR PORT ’A’ IS NOT SET. 


IS ASE COMMAND THROUGH PORT ’ VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL THAT NEITHER A TENTION BIT IS SET. 


8.38 TEST 44 - TEST PORT INTERACTION FROM PORT 'B’ 
VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 


A. 
B. 
C. 


SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RHDS1. 
WRITE 1’S INTO RHER1, RHER2, & RHERS THROUGH PORT °B’. 


READ RHER1, RHER2, & RHERS THROUGH PORT °A’. VERIFY THAT PORT 
"A’ SEES O'S FROM’EACH OF THESE REGISTERS. 


CLEAR RHERI, RHER2, & RHERS THROUGH PORT ’B’. 


WRITE 1°S INTO RHERI, RHERC, & RHER3 THROUGH PORT °A’. VERIFY THAT 
PORT ’B’ SEES 0’S FROM EACH OF THESE REGISTERS. 


RELEASE THE DRIVE THROUGH PORT ’B’. VERIFY THAT THE DRIVE HAS 
Ae Bite TO PORT °A’ AND THAT THE ATTENTION BIT FOR PORT 'A’ IS 
THE ATTENTION BIT FOR PORT 'B’ IS NOT SET. 
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104 
1O95 G. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE ORIVE 
iene RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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8.39 TEST 4S - TEST PORT ’A’ ALTERNATE ATTENTION BIT PATH 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ’A’. 
B. SEIZE THE DRIVE THROUGH PORT '8’ BY WRITING 0’S INTO RHOS1. 
C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION SIT 
FOR THE DRIVE IS SET. 
8.40 TEST 46 - TEST PORT ’B’ ALTERNATE ATTENTION BIT PATH 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ’B’. 
B. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RHDS1. 


C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


3. PROGRAM LISTING 


Ae ee ee ee + eee 
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1079 - TITLE erica” RPOY QUAL CONTROLLER LOGIC TEST - FART 1 
0 s*COPYRIGHT (C) 1974 

ine) sso IG TAL EQUIPMENT CORP. 

MAYNARD, MASS. 01754 





10884 SPRoGRAN BY C. HESS 
1086 t STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
1087 :#PACKAGE (MAINDEC-1!-DZQAC-Ae). 
1088 :* 
1089 
1096 
1031 -$8TTL OPERATIONAL SWITCH SETTINGS 
1993 e SWITCH USE 
1694 SH ee een ennnenn 
1095 # 15 HALT ON ERROR 
1096 + 14 LOOP ON TEST 
1097 i 13 INHIBIT ERROR TYPEOUTS 
1098 # 11 INHIBIT ITERATIONS 
1099 :# 10 BELL ON ERROR 
1100 :# 3 LOOP ON ERROR 
1102 
1103 
1108 .SBTTL BASIC DEFINITIONS 
1106 -*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *%x 
1107 001100 STAcK= 1100 
1108 “EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
1109 -EQUIV IOT. SCOPE > :BASIC DEFINITION OF OF SCOPE CALL 
1110 177776 PS= 177776 >:PROCESSOR STATUS 
1111 .EQUIV PS. PSW 
llle 177774 STKLMT= 172774 ;3STACK LIMIT REGISTER 
| 1113 177772 PIRG= 177772 *PROGRAM INTERRUPT REQUEST REGISTER 
1114 177570 SWR= 177570 t CUTTCH GIST 
1116 177570 DISPLAY=SWR 
| 1117 ;xGENERAL PURPOSE REGISTER DEFINITIONS ‘ 
1118 900000 RO= 70 NERAL REGISTER ; 
1119 090001 Ris %1 tt GENERAL REGISTER 
ied oo0002 Res i : > GENERAL REGISTER 
{155 ue R4= “4 Beatie REGISTER 
| 1123 = 4S *:GENERAL REGISTER 
| ties po0006 Rb= ie :: GENERAL REG STER 
1126 -EQUIV R6,SP H Stack POINTER 
11g? “EQUIV R7,PC ::PROGRAM COUNTER 
1129 SxPRIORITY LEVEL DEFINITIONS 
1130 ooce00 Pro= 0 
113 000040 PRI 
ll 009100 PRE 
1133 000140 PR3 
H 
{ 
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1134 0 PRY= U :;PRIORITY LEVEL 4 
ii32 RBBS4 PRS= sy ::PRIORITY LEVEL S 
1136 000300 RPE= 300 :sPRIORITY LEVEL 6 
He 000340 PR7= 340 ::PRIORITY LEVEL 7 
1] -¥"SWITCH REGISTER” SWITCH DEFINITIONS 
1140 100000 SwiS= 100000 
iia 40000 Swi4= 
114 6900 SWi3= 20000 
1:43 10000 SWi2= 10000 
1144 004000 SWil= 
1245 062000 Swi0= 2000 
1146 091000 Swo9= 1000 
1147 000490 cwos= 40 
1148 SWO7= 200 
1149 900100 SwOb= sd 
1150 000040 SwOS= 40 
1151 0020 SwO4= 20 
1152 090010 SwO3= 10 
1153 o00004 Sw0e= 4 
1154 0002 = 2 
1155 o00001 cwot= 1 
1156 EQUIV SWO9,SW9 
1157 EQUIV SwWO8,SW8 
1158 EQUIV : 7,57 
1159 QUIV SwWO6; Swe 
1160 EQUIV SWOS, SWS 
1161 EQUIV SWO4; SW4 
1162 EQUIV SWO3, SW 
1163 QUIV 2, 
1164 QUIV SwOl; Swi 
| 1165 EQUIV SWOO, 
| 1167 -¥DATA BIT DEFINITIONS (BITOO TO BITIS) 
; 118 100000 81TiS= 100000 
1169 040090 Bitiae 40000 
1170 0000 BIT13= 20000 
1171 010000 BITle= 10000 
| 4172 004000 BITii= 4000 
1173 BITiO= 2000 
1174 901000 BITO9= 1000 
1175 090400 BITO8= 400 
| 4176 090200 BITO7= 200 
| 1177 000100 BIT06= 100 
| 1178 000040 BITOS= 40 
| 4179 000020 BITOY= 20 
i 1160 000010 BITO3= 10 
| 1181 000004 BITO2= 4 
| 31e2 po0c0e2 BITOl= 2 
' 4183 00000 BIT00= { 
| 4184 -EQUIV BITOS,B1T9 
| 1185 -EQUIV BITO8,B1T8 
| 1186 -EQUIV BITO7,B1T7 
| 1187 -EQUIV BITO6,BITE 
| 1188 -EQUIV BITOS,BITS 
1169 -EQUIV BITO4,BITY 
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DERPPA.P11 


~ 
i 
25 3 


0 bh 0 bp pe pe 
Re moet eae 
Stehitibs tate tata 


BASIC DEFINITIONS 


900004 


000001 


100000 


-EQUIV B1T03,BIT3 
-EQUIV BITOe,BITe 
-EQUIV BITO1,BIT1 
-EQUIV BITOO,BITO 


¥BASIC “CPU” TRAP VECTOR ADDRESSES 
fa PCs 4 ;;TIME OUT AND OTHER ERRORS 


TPVE 64 
PIRQVEC=240 


fea i AND ILLEGAL INSTRUCTIONS 


TRACE TRAP 
: BREA KPOINT TRAP (BPT) 
3s INPUT/OUTPUT TRAP (IGT) **SCOPEx* 


WER 

t FENULATOR TRAP (EMT) #**ERRORS# 
"TRAP" TRAP 

tary KEYBOARD VECTOR 


;;1TY PRINTER VECTOR 
; ; PROGRAM INTERRUPT REQUEST VECTOR 


5 5 RRRERERRA ALAA RE RELE RREK LER EREL EEE LEAL EE EL ERE ERASE EE RESELLER ELE LER EELS 
-SBTTL RH11 REGISTERS 
5 5 RERRARLE RELA REEL EERE RE RAE LE REL EEE E ERE KER ERE LEEE LEE EE EERE LE RERELELELEE 


;WORD COUNT REGISTER (RHWC) 
;EACH BIT IS CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 
EACH BIT IS CALLED BY BIT NUMBER 


;CONTROL AND STATUS REGISTER 2 (RHCS2) 


US1= 1 ;UNIT SELECT (BIT #0) 

USe= e@ UNIT SELECT (BIT #1) 

USv= ;UNIT SELECT (BIT #2) 

BAI= 10 ;BUS_ ADDRESS INCREMENT INHIBIT (BIT #3) 
PAT= 20 ;MASSBUS PARITY TEST (BIT #4) 
CLR= 40 ;CLEAR (BIT #5) 

IR= 100 ;INPUT READY (BIT #6) 

OR= 200 ;OUTPUT READY (BIT 

MPE> 400 ;MASS BUS PARI OR (BIT #8) 
MXF'= 1000 ;MISSED TRANSFER ERROR (BIT #9) 
PGE= e000 ;PROGRAM ERROR (BIT #10) 

NEM= 4000 ;NON EXISTANT MEMORY (BIT #11) 
NED= 10000 ;NON EXISTANT DRIVE (BIT #12) 
UPE= 20000 ; UNIBUS PARITY er (BIT #13) 
WE= 40000 ;WRITE CHECK ERROR (BIT #14) 
DLT= 106000 ;DATA LATE (BIT #15) 


;DATA BUFFER REGISTER (RHDB) 
;EACH BIT IS CALLED BY BIT NUMBER 


5p RERRRRRERRE EERE REL ELE LAE RALE LEER EERE ERELE LALA RE RERERA REE REL EL ERE RRL ELE 
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DERPPA.P11 RPOY REGISTERS 


124 ~SBTTL RPOY REGISTERS 
fp RERRREE RHEE REE E EAH R ARE E AEA E EEE AE EEE EE EAE EERE EA ER EF BEES IRE EEE ESERES 
;CONTROL AND STATUS 1 REGISTER. (#00) 


900001 GOQ= i ;G0 


(BIT #0) 
000100 IE= 100 INTERRUPT ENABLE (BIT #6) 


1 RDY= ADY #7 

teed id Alb= ine R60 onBee ixteus BITS BIT #8) 
1256 1000 Al7= 1000 sHIGH ORDER UNIBUS BITS (BIT #9) 
1257 052000 PSEL= 2000 sPORT SELECT 

1258 004009 DVA= 000 s DEVICE AVAILABLE (BIT 

1259 o20co0 MCPE= 000 MASSBUSS PARITY ERROR ait #13) 
1260 040000 TRE= 40000 t TRANSFER ERROR (BIT #14) 

126} 100000 Sc= 100000 SPECIAL CONDITION (BIT #15) 
Lees ;STATUS REGISTER (RHDS1) (#01) 

1265 -OFS= DRIVE FORWARD S"/SEC. (BIT #0) 
1266 ooooc2 OFF25= 2 sDRIVE FORWARD 20"/SEC. (BIT #1) 


DIGB= t ;DRIVE | TO_INNER —_ BAND (BIT #2) 


;GO REVERSE (B 

DIFFERENCE LESS THAN 64 (BIT #4) 
; DIF FERENCE pont 1 (BIT #5) 
;VOLUME VALID (BIT #6) 

DRIVE READY (BIT #7) 


VE a cBIT a6) 
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DPR= 400 : DRI 


574 1 PGM= 1000 ;PROGRANABLE ( 1 # 
1275 p02 L§t= 2000 ZLAST SECTOR TRANSFERRED (BIT #10) 
1276 994000 WiRL= 4000 {WRITE LOCK (BIT #11) 
1277 010000 MOL= 10000 {MEDIUM ON-LINE. (BIT. #12) 
1278 020000 PIP= 20000 :POSITIONING OPERATION IN PROGRESS (BIT #13) 
1579 o4g000 ERR= 40000 ZCOMPOSIT ERROR. (BIT #14) 
1280 oo000 ATA= 100000 ZATTENTION ACTIVE (BIT #15) 
1286 sERROR REGISTER #01 (RHERI) (#02) 
1384 oo0001 ae SILLEGAL FUNCTION (BIT #0) 
1PBS po0002 IlR= 2 ?TLLEGAL REGISTER (BIT #1) 
1286 00 RMR 4 REGISTER MODIFICATION REFUSED (BIT #2) 
1287 090010 PAR= 10 :PARITY ERROR (BIT #3) 
1288 o90020 FER= 20 {FORMAT ERROR (BIT #4) 
1289 o00040 WcF= 40 {WRITE CLOCK FAIL (BIT. #5) 
1299 000100 ECH= 100 CC HARD ERROR (BIT #6) 
1391 000200 HCE= 200 tHEADER COMPARE ERROR (BIT #7) 
1292 o400 HCRC= 400 tHEADER CRC ERROR (BIT 
1293 001000 ACE= 1000 ZADDRESS OVERFLOW ERROR (BIT #9) 
1594 002000 IAE= 2000 ZINVALID ADDRESS ERROR (BIT #10) 
1295 po4000 Wle= 4000 SWRITE LOCK ERROR (BIT #11) 
1296 010090 DTe= 10000 {DRI 'E TIMING ERROR (BIT #12) 
1297 o20000 OPI= 20000 SOPERATION INCOMPLETE (BIT -#13) 
| 1298 040000 UNS= 40000 ‘DRIVE UNS #14) 
| 188 00 DckK= 100000 SDATA CHECK ERROR (BIT 15) 
| 1301 sMAINTAINABILITY REGISTER (RHMR) (#03) 
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vii 
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EST = FRRT 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDA) ‘#05 


sATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 


;EACH BIT IS CALLED BY BIT NUMBER 


;DRIVE TYPE REGIST 
apap REGISTER (RHLA) (807) 


:EACH BIT IS CALL 


i Folin d 
OG3C ' 


ER LO 


“ONTROLL 


REGISTERS 


oy 


4 
o4 


RE 


OU Tino oOo’ 
et bee ek ee oe ee oe ee ee) 
MMMOMMMMMCd 


 Baaianeie 


aQnwmnga--~-~—-~- 

See SUM TU 

Siege eee hee eee) 

aA AAA AR OX4UMT SHOR 


RaVVzees =e re 


Serer retry) 


sonnel beeen 


Aamaidaia 


a is 2Sas , oo nde 


COREE ses shes 


Bees 2 


SMa RM a a At tute ato 


lat et Ie ett et hte te hee hee ht tin eet he eh he ha oe Doe Dee Dee ot oe Doe Dee Dee Dee hoe he eee Doe 0 IAMMAMMMmAMMMMm MMMM eae 


OO ee + _——- eC SI eile ~—- oo 





;ERROR REGISTER #2 (RHER2) (810) 


r 


- eee ere - ee eee ee eee ene ae Ee 
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REOY REGISTERS 
1358 901009 MHS= ‘1uo00 sMULTIPLE HEAD SELECT (BIT #9) 

1359 902000 NHS= ~ 2000 NO HEAD SELECTION (qT #10) 

1360 04000 IxE=| 4000 ‘INDEX ERROR (BIT 

1361 910000 Vu3s0= 10000 : 30V0LT UNSAFE (ert #12) 

l 20000 PLUs  600c PLO UNSAFE (BIT #13) 

1353 199000 acu 180000. TAC UNSAFE (BIT #16) 

1355 OFFSET REGISTER (RHOF) (#11) 

1387 900051 OFeS= 1 OFFSET 25 MICRO INCHES (BIT #0) 

1368 00062 OFSO= 2 OFFSET 50 MICRO INCHES (BIT #1) 

1369 OF 100= OFFSET 100 MICRO INCHES (BIT #2) 

1370 090010 OF200= 10 !OFFSET 200 MICRO INCHES (BIT #3) 

137} p00C20 OF4O0= 20 ‘OFFSET 4OO MICRO INCHES (BIT #4) 

1372 000040 OFB00= 40 ‘OFFSET B00 MICRO INCHES (BIT #5) 

1373 900200 OFREV= 2 OFFSET NEGATIVE (REVERSE) (BIT #5) 
1374 002000 HCI= 2000 HEADER COMPARE INHIBIT (BIT #10) 

1375 04000 ECI= 4000 ZERROR CORRECTION CODE INHIBIT (BIT #11) 
1375 030000 FMT22= 10000 “FORMAT BIT (BIT #12 

1378 DESIRED CYLINDER ADDRESS (RHCA) (#12) 

1378 EACH BIT IS CALLED BY BIT NUMBER. 

1381 CURRENT CYLINDER ADDRESS (RHCC) (#13) 

12 SEACH BIT IS CALLED BY BIT NUMBER 

1364 SERIAL NUMBER REGISTER (RHSN) (#14) 

7285 EACH IS CALLED BY BIT NUMBER 

1387 sERROR REGISTER #03 (RHER3) (#15) 

1389 0009: PSUs K SPEED UNSAFE (BIT #0) 

1390 h0000e2 VUF'= 2 SVELOCTTY UNSAFE ‘elt 

135} 009019 = {0 _ TANY UNSAFE EXCEPT READSURITE (BIT #3) 
1393 pongen = 20 ‘DISK PACK ROTATION ERROR (BIT 84) 

1345 5 ACLs 40 3RC L LOW (BIT #5) 

1304 009190 OCL= 100 :DC (BIT #6) 

1395 040000 SkI= 40000 sOFEK OO NCSHPLETE (BIT #14) 

133 100009 = 100000 !OFF CYLINDER (BIT #15) 

1398 ECC POSITION REGISTER (RHECI) (#16) 

1335 : BIT IS CALLED BY BIT NUMBER 

1401 SECC PATTERN REGISTER (RHEC2) (#17) 

1408 ‘EACH BIT IS CALLED BY BIT NUMBER 

ee gs ERSEERSELRELEREKELSE LEE S SLEERAE REESE SERRE RES SE LKE SEERA EASES SFLSRERRSERS 
1406 .SBTTL DEFINITIONS OF THE RH11/RPOY ADDRESS INDEXES 

1iee s ¢ RERSALELELELE LLL ALELASLELALAL EAL ALLARLREL REALE REALE ELLER AR ELLER LESS 
1419 ooco00 RHCS1=0 CONTROL AND STATUS REGISTER 81 (DRIVE REG. 00) 
1411 000092 RHWC= ;HORD COUNT REGISTER (NOT A DRIVE REG) 
1412 009004 RHBA= *UNTBUS ADDRESS REGISTER (NOT A DRIVE REG) 
1413 O0000E = “DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 0S) 





re ee er ee eee ee 





ee meme 
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DERPPA.P1! DEFINITIONS OF THE RH11/RPOY ADDRESS INDEXES 


1414 990010 RHCS2=10 sCONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
1415 po001¢ RHDSI=le sDRIVE STAT ie REGISTER (ORIVE REG 01) 

1416 0014 RHERI=14 R REGIS TER 81 #1 (ORIVE REG. Oe) 

1417 00001 =16 ATTEN PSEUDO REGISTER (ORIVE REG. 04) 
1418 oc0020 RHLA=20 ROOK A ne SEE OTSTER (DRIVE REG. 07) 

1419 000022 B=22 ‘DATA BUFFER REGISTER (NOT A DRIVE REG.) 

1420 900024 sou *MAINTAINABILITY REGISTER (ORIVE REG. 03) 

1421 000026 RHDT=26 ‘DRIVE TYPE REGISTER (ORIVE REG. 06) 

1422 009030 RHSN=SO ‘SERIAL NUMBER REGISTER (DRIVE REG. 10) 

1423 960932 RHOF =32 :OFFSET REGISTER (DRIVE REG. 11) 

1424 090034 RHCA=34 ;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
1425 000036 = ;CURRENT CYLINDER ADDRESS REGISTER (ORIVE REG. 13) 
1426 990049 RHER2=40 ;ERROR REGISTER #2 (DRIVE REG. 14) 

1457 goon42 RHERS=42 ERROR REGISTER #3 (DRIVE REG. 15) 

1438 o90044 RHECI=44 "ECC POSITION REGISTER (DRIVE REG. 16) 

1429 000046 RHECO=46 SECC PATTERN REGISTER (DRIVE REG. 17) 

1421 

1432 .SBTTL TRAP CATCHER 

1433 

1434 o00009 .20 

1435 :#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN. A". +2, HALT” 

1436 :#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERR 

1437 >#LOCATION O cSNTAING 6 TO CATCH IMPROPERLY LOADED VECTORS 

1439 .SBTTL STARTING ADDRESS(ES) 

tay ne teers 

1442 900200 900137 oD2044 JsSTART - JUMP TO STARTING ADDRESS OF PROGRAM 

1443 saSTARTING ADDRESS IS LOCATION 200 

1445 00204 000137 o02410 JMP EXEC sRESTART 

16 ;#RESTART ADDRESS IS LOCATION 204 

1448 CO0Z10 000137 opesso IMP CHANGE HANGE RH11 ADDRESS AND START 

1446 s#START AT LOCATION 210 TO cHenae” THE RH11 ADDRESS FROM 176700 


me ee ne es eee ee 


j 
i 
} 
| 
| 
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STAR ADDRESS ( 

ie 5 TERAKAS HARA ES SHLAA AAEAS SLA RLALARASLA FLSA ASF RESSALA FE RELEASE FEES 
1455 .SBTTL COMMON TAGS 
ies s#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
1438 :#USED IN THE PROGRAM 
1460 oo0046 246 
1461 p0004%8 057626 $ENDAD ;;LOGICAL END OF PROGRAM 
1463 001100 21100 
1465 001199 SCNTAG: ;;START OF COMMON TAGS 
1466 001109 oooroo SPASS: -WORD 0 3 CONTAINS PASS COUNT 

a8 sc 99 
ies sbtitS O69 state: Bi i CONT Aine cok on FL TERATION COUNT 
ius 991108 rans Sena: “HORD 0 Hear BING SCOPE oop 
1471 001110 SLPERR: .WORD 0 ONT AINS SCOPE RETURN FOR ERRORS 
1472 OOlll2 900000 SERTTL: .WORD 0 + CONTAINE TOTAL ERRORS DETECTED 
he ule oe nar ive eave ot ER ot 
1475 O01116 ooonaa ae BORD 0 otal PC ¢ P ERROR Ti INSTRUCTION 
1476 001120 o00000 SGDADR: :WORD 0 2CONTAINS OF * Cho! 
1477 OO0ll22 00000 SBDADR: .WORD 0 3s CONTRING OF *BAD’ ontan 
1478 0011e4 000000 SGDDAT: :WORD 0 *:CONTAINS *GOOD’ DATA 
1468 BOrTSB Goober ooogc0 oooon SSOORT -HORe ooo SOO ee B--ROt TO oe USED 
tap Sot iae 177560 STKS: 177500 ° Hk KBD STATUS 
1482 001140 177562 STKB: 177562 ‘TTY Y KBD BUEFER 
1483 001142 177564 STPS: 177564 :TTY PRINTER STATUS REG. 
iWBe DOL | oo SNEL: -OVTE’ 0 en TRE CURASTER FOR FILLS 
1486 seta HA tts: BYTE 2 ::CONTAI Ue FILLER CHARAC IERS REQUIRED 
1487 001150 SFILLC: .BYTE 12 33 INSER T FILL CHARS. AFTER A “LINE FEED" 
14 001151 TPELG: “BY 0 38 TERMINAL | RVRILABLE™ FLAG (BIT<(O7>=0=YES) 
1489 0011 : BND 0 3 sCONTR NS THE FROM 
1490 *:WHICH (SREGO) WAS OBTAINED 
1491 001154 SREGO: .WORD O *:CONTAINS (($REGAD)+0) 
1492 901156 STMPO: .WORD 0 *:USER DEFINED 
1493 001160 STMP1: :WORD 0 >;USER DEFINED 
1494 pel ies TMPe: .WORD QO ;;USER per thee 
1495 1164 TMP3: .WORD 0 ; ;USER I 
149% 001166 STMPY: <WORD 0 >:USER DEFINED 
1497 001170 STIMES: 0 +:MAX. NUMBER OF ITERATIONS 
1498 001172 SE :0 >;ESCAPE ON ERROR 
1499 001174 177607 000377 SBELL: .ASCIZ <207><377><377> :: FOR BELL 
1500 001200 077 SouEs: CII 777 + OOESTION BARK 
1501 001201 15 : .ASCIT <iS> CARRIAGE RETURN 
1502 OO0le02 oo00l2 SLF:  .ASCIZ <12> *:LINE FEED 
1503 001204 172540 SLKCSR: - WORD 172540 sADOR OF KWl1-P STATUS REGISTER 
1504 001¢06 I7ebHe SLKcoe: ‘ 172542 : OF KWll-P COUNTER BUFFER 
tepe GoiSts SeveuE Skee “WORD | L775Mb ADDR OF Kuttal STATGS REGISTER 
1507 001214 08 SLLVEC: “HORD "ADDR OF KW11-L VECTOR 
1508 O012i6 o00000 PORTA: .WORD ADDRESS OF PORT A 








sn ee re re re een os EO: 
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DERPPA.P11 TAGS 


SS 3 
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BEE Sidon woe 


antaINs Tie P T ADDRESS FOR ERROR prpecurs 
AN a Le PGPROSTTES FORT 
IF =} 9 Re R MISCOMPAR 
p= "BEGISTER a ats I 
PORT tN +SELDPT 


pres 
Dene 


‘ELAPSED TIME COUNTE 


WATCH DOG TIMER LOCATION 
if MEQUT ONE-SHOT VALUE MEASURED THROUGH PORT 9 
T VALUE + See 


“SHOT VALU 

aE pp vate MEASURED THROUGH PORT 8 
= 25% 

sek RAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 

;SINGLE TEST INDICATOR 

5p RHR EERE REEL EERE R ERK REE EERE EERE EERE EERE EERE EEE E EEE EERE EEE ERLE EE 

-SBTTL RH11/RPOY UNIBUS AND VECTOR ADDRESSES : 

55 RAE AP IEEE RHEE ESE HE SE HEHE HERE HE HEE HEHE RHEE EEE EERE ER EEE ERLE EERE EERE REE 


;RH11/RPOY UNIBUS ADDRESS 
:RH11 INTERRUPT VECTOR ADDRESS 





ED 
NOT SEIZE THE DRIVE 
NOT RELEASE THE DRIVE 
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DERPPA.P RH11/RPO4Y UNIBUS AND VECTOR ADDRESSES 


333 ¢ ERRAARASAAAE AEA KE RAL AA ALL LA RALAA AAA LAA LAL ALA REALL LALLA SLELLE LSS 
154i .SBTTL ERROR POINTER TABLE 
1543 s#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
Tye sie eg, Fale NUMBER I Han Ares THT ae a He TEBE Is PERTINENT. 
1546 sROTEL: mee § {hPa re iN SRLS PE HT NERT Bath 1S ($ERR 
1547 EACH ITEM IN THe TABLE CONT AINE 4 POINTERS SEP AINED AS FOLLOWS: - 
1549 3% EM s POINTS TO THE ERROR MESSAGE 
1550 i DH POINTS TO THE DATA HEADER 
1551 3% OT sEBOINTS TO T TA 
1582 1x OF *POINTS TO THE DATA FORMAT 
1554 
1555 001274 SERRTB: 
1556 
1587 ERROR 1 
1559 001274 062471 EM! ;WRONG DRIVE TYPE 
1560 001276 O66464 DH1 
1561 001300 070214 OT1 
1562 001302 OF 1 
1563 
1564 ERROR 2 
1566 001304 062512 EMe2 ;DRIVE NOT ON LINE 
1567 901306 O66464 DHI 
1568 001310 970214 OT1 
1569 001312 O70460 OF 1 
1570 
e724 ERROR 3 
1573 001314 062534 EM3 ;SERIAL NUMBERS NOT THE SAME 
1574 001216 066525 OH3 
| 2575 001380 70230 DT3 
1576 0013e2 OF! 
| 4577 
| 1378 sERROR 4 
| 1580 001324 062616 EM4 ;DRIVE NOT SEIZED BY PORT ’N’ 
| 1581 001326 O66604 DHY 
| 1582 001330 DT7 
| 1583 (01332 070473 DF7 
| 1585 ERROR 5 
| 587 001334 062647 EMS sWRONG STATUS SEEN BY THE SEIZING PORT 
| 4688 001336 066727 DHS 
' §©1589 001340 970244 OTS 
| 1590 001342 OFS 
| 4591 
| 1536 ERROR 6 
| 1594 001344 c62715 EMb sREGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WA 
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POINTER TABLE 


pile 


;ERROR 15 
EM1S 
DH? 
DT? 
DF7 

;ERROR 16 
EM16 


;REGISTER CONTENTS INCORRECT AFTER RELEASE/ TIMEOUT 


;REGISTER CONTENTS INCORRECT 


;CONTROL BUS PARITY ERROR WHILE READING REGISTER 


;DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 


;’ VOLUME VALID’ BIT NOT SET BY READIN PRESET 


;*VOLUME VALID’ SET ON THE OPPOSITE PORT 


; THE ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET 


;ATTN BIT WRONG AFTER RELEASE - REQUEST WAS SET 





ee 
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DERPPA.Pi1 ERROR POINTER TABLE ws 


1651 001446 067003 DH? 


1652 OOL4SO 070276 O12 
1653 001452 070473 OF? 

1654 

155 ;ERROR 17 

1657 001454 963544 EMI? ;ATTN BIT WRONG AFTER RELEASE - REQUEST NOT SET 
1658 001456 067003 DH? 

1659 O01460 070276 017 

1660 01462 070473 

1661 

1662 ;ERROR 20 

1664 OO1464 063623 EM20 ;DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 
1665 001466 067673 DH36 

1665 001470 0137 

1667 001472 OF 36 

1668 

1668 ;ERROR 21 

1671 001474 063703 E21 ;DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 
1672 001476 067573 DH36 ‘ 





Ve———s.—_——<_—————————————_— ———————————— ses  ———————— eee] 
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ERROR POINTER TABLE 


070506 


064111 
067415 








DF 36 
;ERROR 22 
EMee ;DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REGUEST NOT SET 







bres ; TIMEOUT CLEARED THE DRIVE’S ERROR BIT 






EM24 ;RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 






EM2eS ; TIMEOUT ONE-SHOT DID NOT RETRIGGER 


EM26 ;DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 







EM27 ;REGISTER WRONG AFTER RELEASE WITH REQUEST SET 


EM30 ; ;DRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 


;ERROR 31 


EM31 ;ORIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SE 
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DERPPA.P1i ERROR POINTER TABLE 


;ERROR 41 
001674 065301 EM41 ; TIMEOUT CLEARED ATTENTION BIT 


S555 
obs At ite 





? 1 74 DH31 
tea) petPaR Bsa ace OT a1 
1732 001602 070502 OF 31 
1733 
1734 sERROR 32 
1736 001604 964550 EM32 sATTN BIT WRONG AFTER RECALIBRATE COMMAND 
1 001606 066727 DHS 
1738 001610 O70244 OTS 
1739 O0l6le O7O4es OFS 
1740 
tap sERROR 33 
1743 OCOl614 O64621 EM33 sDRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRI 
1744 001618 067673 DH36 
1745 001620 970374 OT36 
1746 O0ib22 DF 36 
1747 
17g ;ERROR 34 
1750 001624 064723 EM34 sDRIVE RETURNS TO NEUTRAL IF MASSBUS INIT GIVEN WHILE OR 
1751 001626 067673 DH36 
1752 001630 070374 DT36 
1753 001632 970506 DF 36 
1758 sERROR 35 
1757 001634 Oesnet EM35 ;DRIVE RETURNED TO NEUTRAL WITHOUT TRIGGERING TIMEOUT ON 
1758 901636 0676 DH36 
1759 001840 o4 0137 
1760 001642 070506 OF 36 
1765 sERROR 36 
1764 OO1644 065105 EM36 ; TIMEOUT HAS NOT OCCURED WITHIN 2 SECONDS 
1765 OO1646 067673 DH36 
1766. OO1650 070374 DT36 
1760 001652 * 070506 DF 36 
1763 ;ERROR 37 
1771 OO1654 O65156 EM37 ;DRIVE IS NON-EXISTANT 
1772 O01656 067673 DH36 
1773 OO1660 070404 D137 
| 1774 OOl662 DF36 
1775 
| 177% sERROR 40 
1778 O01664 bes2e4 EM4O sATTENTION FOR PORT NOT RESET BY MASSBUS CLEAR 
| 1779 001666 464 DH1 
| 1780 601670 0346 DT23 
001672 070460 OF1 
| 
| 
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DERPPA.P11 ERROR POINTER TABLE 






01 741 DH 
t5 a igre nies bys 
1788 001702 070460 OF 1 
1789 
1730 sERROR 42 
1792 001704 965343 EM4e sDRIVE NOT IN NEUTRAL OR SEIZED 
1793 001706 067722 OHY4e 
1794 001710 070414 DT4e 
1739 001712 O70Sii DFY4e 
fale sERROR 43 
1799 001714 065431 EM43 sDRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 
1800 001716 067722 DH42 
1801 001720 070414 DT42 
1802 001722 0705 OF42 
1803 
1804 sERROR 44 
1806 001724 O6sS06 EM44 ;sWRITE ATTENTION BIT DID NOT SET PORT REQUEST 
Igoe Bot738 peaaes Brat 
is08 Boies BF Ba 
1810 
181} ;ERROR 45 
1813 001734 O&SS62 EMYS sCONTROLLER SELECT SWITCH ON DRIVE NOT IN ’A@/B’ 
1814 901736 O&6464 DH1 
1815 001740 070214 DT 
1818 001742 070460 OF 1 
1818 ;ERROR 46 
1820 001744 of6S642 EMY& sCAN’T ACCESS DRIVE THROUGH EITHER PORT 
1821 001746 DH46 
1822 001750 O70422 DT46 
1823 001752 DF31 
1824 
1BES ;ERROR 47 
1827 001754 065711 EM47 sATTN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT 
1828 001756 067415 DH23 
1829 001760 070346 DTe3 
1830 001762 070460 DF 1 
183 ;ERROR SO 
1834 001764 065777 EMSO sATTN BIT FOR OPPOSITE PORT CLEARED BY MASSBUS INIT 
1835 001766 067177 DH13 
1836 001770 970316 DT13 
1637 001772 070465 OFS 
1838 sERROR S1 
1841 001774 O66062 a EMS1 ;ATTN BIT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 











MD-11-DERPP-A, 
DERPPA. P11 
1s42 001776 
1843 002000 
1e44 02002 
1845 
iB 
1848 002004 
1849 002006 
1850 002010 
1851 Od02012 
1852 
1853 
1854 
1855 14 
1856 002016 
1857 
1858 O02022 
1859 
1860 
1861 
1862 02024 
1863 002026 
1864 002030 
1865 002032 
1866 
1867 
1868 
1869 002034 
1870 90¢ 
1871 002040 
1872 O0204e 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 00 
1890 002100 
1891 002106 
183 006114 
1es4 ObE130 
1895 002136 
1896 002144 
1897 002150 


RPOY 
ERRO! 


066727 


070244 
070465 


966145 
067177 


Rae 
SRS 


202000009 
RIT i te 
Ruaceaaeees 


000340 
001100 


057556 
1170 
117e 


177776 
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;ERROR 53 
EMS3 
DHe3 
OTi 


;ERROR S4 


O4-CCT-76 10:31 PAGE Se 


;ATTN BIT SET AFTER TIMEOUT, ’ERR’ SET, NO REQUEST 


;CAN’T READ ATTN BIT FROM OPPCSITE PORT 


;RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING P 


; TIMEOUT ONE-SHOT IS LESS THAN SOO MS 


5p RRRRRERER EERE ELSE RR AE EARLE AER RARER ERE LEER ELLE ER AEE REAL EEE REELELELELEE 


-SBTTL STARTUP AND INITIALIZATION ROUTINES 
5p HAHEI RHE HEHEHE AEE HE HEE HEHE REE HERE EE EEE EERE REE REE EEE ER EEE EEE 


START: 





#340, 08PS 


;;LOCK OUT ALL INTERRUPTS 
BSCMTAG, Ro tiFIRST LOCATION TO BE CLEARED 
(RB )+ ZICLEAR MEMORY LOCATION 
BSTKS, Rb DONE? 
6 :3LOOP BACK IF NO 
BSTACK, SP ::SETUP THE STACK POINTER 
WSSCOPE, J#IOTVEC ::I0T VECTOR FOR SCOPE ROUTINE 


#340, asfOTVEC+2 ;:LEVEL 7 
#SERROR, JHEMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
#340, QHEMTVEC+e ; LEVEL 7 

TRAP, J#TRAPVEC i ,TRAP_VECTOR FOR TRAP CALLS 


#340, JRTRAPVEC+e; LEVEL 
ENDCT,SEOPCT :;SETUP END-OF-PROGRAM COUNTER 

IMES :: INITIALIZE NUMBER OF ITERATIONS 
SESCAPE *:CLEAR THE ESCAPE ON ERROR ADDRESS 


04 


1 

1 BER 
195e O0e502 012601 MOV (SP)+,R1 :PUT ENTRY INTO Ri 
1 002504 Boi6b2 BNE +6 BR IF NOT ZERO 
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DERPPA.P11 STARTUP AND INITIALIZATION RCUTINES 
B36 Doste? Biers? Goeies OOLIOE Av . oy TNITEAL TSE THe LOOP ADCRESS.FOR SCOPE 
1896 : ei 002170 001110 ey . , SLPERR qh b Tie ERROR Mi OOF EEes 
1902 104400 081714 START1: TYPE TITLE set Be ROERAM Nae 
1903 002204 012737 o00240 oDe200 MOV BNOP, START OTSA BLE TITLE TYPEOQUT AFTER INITIAL START 
1904 OOeele 912737 000240 d0ez02 MOV #NOP’STARTI+2 :FROM LOCATION 200 OR 210 
1905 002220 104400 062012 1S: TYPE.  ,ENTERA ‘ENTER DRIVE ADD 
1906 O0e224 104416 ROOCT ‘GET THE ADDRESS 
1907 O0e226 012637 O01216 MOV (SP)+, PORTA :STORE THE ADDRESS 
1808 O0e232 023727 O01216 000007 CMP PORTA; #7 SEE IF ADDRESS TOO LARGE 
1909 O02240 101403 8LOS 
1916 OO2242 104400 os204e2 TYPE ADRERR TYPE ADDRESS ERROR MESSAGE 
1911 002246 000764 BR :T 
1912 002250 013737 001216 O01220 2s: MOV PORTA, PORTB ‘GENERATE THE PORT 8 ADDRESS 
1913 002256 005237 001220 INC PORTB ‘INCREMENT THE ADDRESS 
1914 OOeebe 042737 O00006 o012e0 BIC #6, PORTB *LEAVE 
1915 002270 013746 Ofi216 MOV PORTA, -(SP) :PUT PORT A ADDRESS ON THE STACK 
1916 002274 042716 177771 BIC ##C6, (SP) -SAVE BITS 1 & 2 
1917 002300 052637 001220 BIS (SP)4. PORTB -SET BITS 1 & 2 IN PORT B ADDRESS 
1918 002304 104400 O62064 TYPE PORTAIS j PORT A ADDRESS IS ’ 
1919 002310 01374 OOle2l6 MOV PORTA, -(SP) *PUT THE ADDRESS ON THE STACK 
1920 002314 104410 TYPDS TYPE PORT A ADDRESS 
1921 002316 104400 062112 TYPE PORTBIS -*PORT B ADDRESS IS ° 
1922 002322 013746 001220 MOV PORTB, -(SP) :PUT ADDRESS ON THE STACK 
1923 326 104410 TYPOS *TYPE PORT B ADDRESS 
1924 002330 104400 001201 TYPE j ANOTHER R-LF 
1925 002334 013737 OO012e16 oD1222 MOV pecnne PORTC "GENERATE ADDRESS OF DRIVE NOT TESTED 
| 1926 902342 062737. OO0006 O0l222 ADD #6, PORTC *COMPLEMENT SOME BIT 
| 1927 002350 042737 177770 OOlece BIC #¢07. PORTC ; SAVE ONLY LOWER BITS 
1928 002356 013701 O01216 MOV PORTA, RI :USE PORT A ADDRESS AS INDEX 
1929 O0e362 116137 070636 o01224 MOVB ATABIT(R1),ASRI *;GET ATTENTION BIT FOR DRIVE 
1930 002370 004737 057264 JSR PC, CKCLK SETUP CL 
1931 002374 000137 O0e410 IMP EXEC ter ock HAS SEEN STARTED 
1932 002400 104809 062140 TYPE , NOCLOCK sD CLOCK OM SYSTEM 
at 
1334 Bpsupe SITE BR 2 * INTERLOCK HALT 
1936 ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 
1938 002410 p9005 EXEC: RESET CLEAR EVERYTHING 
1939 OOe%12 012737 O00240 177776 MOV #(5*32.>,PS :SET PROCESSOR PRIORITY TO 5 
1940 002420 104400 O0le01 TYPE ich “LF 
1941 002424 013700 001270 MOV $RPADR, RO RH11 ADDRESS FOR INDEXING 
| 1942 002430 012706 001100 MOV ESTACK, R6 LOAD STACK POINTER 
1943 002434 004737 057264 JSR , CKCLK “START THE CLOCK 
1944 boeH9 240 NOP jRETURN IF NO CLOCK 
1945 0244 37 001266 CLR erie "CLEAR SINGLE TEST INDICATOR 
1946 0020446 005037 001100 CLR SPASS 5 CLEAR THE PASS COUN 
| 1947 112737 000001 001115 MOVB #1, SERMAX “SET ERROR MAX TO ve 
1948 002460 012737 002460 O0110E MOV #. , SLPADR INITIAL SETTING FOR LOOP ADDRESS 
1949 466 012737 O02466 001110 MOV #. . SLPERR : INITIAL SETTING FOR LOOP ON ERROR ADDRESS 
950 474 104400 062207 TYPE  ,TESTNO ;ASK FOR TEST NUMBER 
| 1951 002500 104416 RDOCT GET THE NUM 
1 
| 
| 





ee ee 
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Sees 
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17777E 


000034 
OOOCSE 


oc0004 
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es: 
; CHANGE 
CHANGE: 


i$: 


3$: 
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IMP TST! sENTER ZES0 - PERFORM ALL TESTS 
MP R] , MAXTN -SEE IF NUMBER GREATER THAN MAXIMUM 
BL § :BR IF LESS OR EQUAL 

TYPE BADNO ;BAD ENTRY 

SR ExEC TRY AGAIN 

DEC } !DECREMENT ENTRY 

ASL RI} -SHIFT IT LEFT 

MOV TSTADR(RL),2$  ;GET THE TEST ADDRESS 

INC KYBCTL :SET SINGLE TEST INDICATOR 

MOV 81, SICNT “PRESET ITERATION COUNT 

IMP aes :G0 10 THE SELECTED TEST 

WORD 60 *TEST ADDRESS GOES HERE 

THE RH11 UNIBUS ADDRESS USED SY THE PROGRAM 

RESET :CLEAR THE SYSTEM 

MOV #340, aePs ‘LOCK OUT ALL INTERRUPTS 

MOV sSTACK, SP *LOAD THE STACK POINTER 

MOV SSTRAP, aBTRAPVEC’ :LOAD TRAP VECTOR 

MOV 8340, dRTRAPVEC+e :LEVEL 7 

TYPE ADDRIS sTYPE OUT WHAT THE PRESENT ADDRESS IS 
MOV $RPADR,-(SP)  :PUT THE ADDRESS ON THE STACK 

TYPOC :TYPE THE ACTUAL ADDRESS 

TYPE  ,SCRLF :CR-LF 

TYPE "NTRHLL ASK FOR NEW ADDRESS 

TST (SP) :0 OP ’CR’ ENTERED ? 

BEQ 1§ *BR IF EITHER ENTERED (NO ADDRESS CHANGES) 
MOV (SP), $RPADR *NEW RHI1 ADDRESS 

MOV $4 sLOAD T 

MOV SRPADR, RO *RH11 ADDRESS 

ADD #2, RO *FORM ADDRESS OF RHWC m 
TST (RO) iSEE F RH11 RESPONDS AT THAT ADDRESS 
oR 3$ : 11 ALIVE AT PRESENT ADDRESS 
TYPE NORESP “REPORT NO RESPONSE 

MOV 0, (SP) :SETUP TO CONVERT THE ADDRESS 

TYPOC ‘TYPE THE SS 

ER CHANGE *GET ADDRESS AGAIN 

IMP START :G0 TO THE STARTING ADDRESS 


5p RERERRELEESLESASLLALALE REALE LLL ESAS ELALELLLAELALELAEL LALLA LLARELALARALAE 


.SSTTL #88 TESTS ### 
5p eee EEE E EERE EERE E ELAR EERE AE LERE LER EAE RERR ER EES 


TSTLAA: MOV SRPADR, RO 


;;RESTORE RO AFTER END OF PASS 


5 RELLELLAE SELLE SELLLSLLLLLLAERLLARHRLALALLLLAEAALA LALLA LEAL LE ERE 


;#TEST 1 


DRIVE ACCESS TEST 


;# 
j AVERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 
*# A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 








Tl DRIVE ACCESS TEST 
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DERPPA.F1! 
2010 :# DRIVE 15, A DUAL port RPGS. THAT THE ORIVE IS PibINe (RHOS! HAS 
gol :* "MOL". "BGM 3 DRY’ BITS SET). GND THE THE DRIVE SERICL 
ole ie NUMBER READ tHROUGH’ BOTH PORTS IS THE SAME. 
e313 i ‘B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
2016 : Ses Qbear star oo eran negates pane 
2017 002710 ts7 ; 
2018 002719 oo0004 SCOPE s INITIALIZE THE SCOPE HANDLER 
2019 O0e7l2 905737 ool1266 TST KYBCTL !PERFORMING ONLY SINGLE TESTS ? 
2020 O0e716 001406 BEO 2s BR IF NOT 
2021 002720 100002 SPL 1§ :BR IF JUST ENTERED TEST 
2622 O0e722 000137 op2410 IMP EXEC RETURN & GET NEXT TEST NUMBER 
e0es O0e726 Ole7s7? 177777 O012b6 1S: MOV $-1 KYBCTL ;SET SINGLE TEST INDICATOR 
2024 002734 1120737 O00001 O01i02 2g MOVE #1, $TSTNM : TEST 
2025 O0e742 912737 002764 001106 MOV sTEST1, SLPAOR ;LOAD LOOP ON TEST ADDRESS 
2026 O02750 012737 000764 991110 MOV STESTI;SLPERR :LOAD LOOP ON ERROR ADDRESS 
2027 002756 Ole737 900001 001170 MOV #1, STIMES DO 1 TTERAY ION 
ons 
2030 2 ERESAAFLESSSLELLAAALFSLELASELLASLELFLAALA SRA LA ESL AS LAA EEF LALLA LEASES ESEEE 
2031 :END OF SCOPE’ SETUP - START OF MAIN TEST 
sos 002764 TESTI: 
2034 s bERIFY THAT DRIVE [6 PRESENT THROUGH PORTS OR ee 
2035 :VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B 
| so 002764 113760 001216 of0010 MOVB  PORTA,RHCS2(RO) ;SELECT PORT 
| p038 802772 013737 001216 O0le26 MOV PORTA-PTNBR ;MOVE PORT aboREse TO LOCATION FOR TYPEOUT 
| 9039 003000 905760 o00012 TST RHOS1 (RO) ;SEE IF DRIVE (PORT A) PRESENT 
| 2040 b53004 05037 OO ie CLR CKERR *CLEAR THE ’CHECK ERROR’ INDICATOR 
| Sou 10 Ol 000010 001126 MOV RHCS2(RO),SBDDAT’ :GET CONTENTS OF RHCS2 
| pOM2 003016 012737 000010 ODlize MOV SRHCSe, SBOAOR sFORM REGISTER ADDRESS OF ERROR MESSAGE 
| 043 003024 060037 O0liz2 R00 RO, SBDADR ADD RH11 BASE ADDRESS 
| Shue Boseas Braeay BoLise oouse cya s pat HART REGISTER ONTENTE TO. *STMPO? 
| 
| BOMB 902042 OY 16 601156 BIC sTcheD: STrD sie SePETEIER Bits 
2047 003050 001124 OO1156 CMP SGODAT; $T sCOMPARE THE BITS 
one 003056 001414 BEQ BR IF OK 
003060 013737 001126 001166 MOV SSODAT,STMPY  :COPY "BAD DATA’ 
| 2050 010000 OO1166 BIC tMpy :CLEAR THE MASKED BITS 
| 2051 OO1166 O011e4 BIS $TMP4,SGDDAT  ;°0R’ WITH GOOD DATA FOR TYPEOUT 
| poS2 003102 104037 RROR 37 :TYPE MESSAGE 37 
| 2053 003104 005137 001236 CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
| 054 003110 o00240 64S: NOP 
| p055 O03112 005737 001226 TST CKERR sWAS °NED’ SET ? 
05 003116 0 BEQ .#10 BR. NOT 
0031 1 o00040 00010 MOV @CLR,RHCS2(RO) ISSUE MASSBUS INIT TO CLEAR ’NED’ 
| 9058 003126 11 001220 000010 MOVB TB, RHCS2(RO) c 
| 059 003134 013737 001220 O0le26 MOV PORTB’ PTNBR “move PORT ADDRESS TO LOCATION FOR TYPEOUT 
bo3142 005760 900012 TST RHOS1 (RO) ;SEE ad ORIVE (PORT T 
i 1 005037 1236 CLR CKERR CLEAR THE ’ HECK ERROR’ INDICATOR 
| 062 0031 16037 O00010 001126 MOV RHCS2(RO),SBDDAT’ :GET CONT OF RHCSE 
| 2063 003160 012737 000010 O0ilee MOV eRHCSe R ;FORM REGISTER TRDORESS ERROR MESSAGE 
2064 O03166 060037 ODll22 ADD RO, SBDADR sADD RH11 BASE SS 
2065 003172 005037 001124 CLR SGODAT :WHAT REGISTER SHOULD BE 
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2066 00317 013737 001126 001156 MOV SBDDAT, STMPO VE REGISTER CONTENTS TO ’S$TMPO’ 
2067 OO3204 042737 167777 OOlIS6 prc BTCNED, STMPO ishig SPECIFIED BITS 
003212 023737 O01124 901156 CMP $GODAT, $TMPC COMPARE THE BITS 
8 20 001414 BEQ 6S$ BR IF OK 
- p070 2 613737 001126 OOL186 MOV SBDDAT,STMPY  :COPY ’BAD DATA’ 
2071 003030 042737 10000 o0!166 BIC NED, STMPY + KLEAR THE MASKED SITS 
003236 953737 OO1166 OO1i24 SIs $TMP4, SGDDAT ;70R* WITH GOOD DATA FOR TYPECUT 
003244 104037 ERROR 37 : TYPE NES ; 
2074 00324 005137 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
2075 O0032S2 900240 65$: NOP 
2076 003254 005737 001236 TST CKERR sWAS ’NED’ SET ? 
2077 003260 991403 BEQ +19 iB IF NOT 
2078 O03262 012760 oco0d4o oco0D10 MOV BCLR,RHCS2(RO) :ISSUE MASSBUS INIT TO CLEAR ’NED’ 
2080 SELEEESERELE FRE FSERELL SER SFE RELEL SESE LESE EL ELE LLL SA FRE SLES L EAA FSSSASESEEE 
e081 : AONF IRM THAT DRIVE IS AN RPOY AND 1S DUAL PORT 
2083 003270 113760 001216 000010 MOVB  PORTA,RHCS2(RO) ;SELECT PORT 
2084 003276 013737 901216 OO0lec6 MOV PORTA,PTNBR ;MOVE PORT ADRESS TO LOCATION FOR TYPEOUT 
2085 003304 005037 D012 CLR CKERR’ sCLEAR THE ’ CHECK ERROR’ INDICATOR 
208 002310 016037 O00026 cO1126 MOV RHOT (RO) SBDDAT T CONTENTS OF 
2087 003316 912737 odes 001122 HOV DT, SBOAOR FORM N REGISTER ROORESS. OF ERROR MESSAGE 
epee ree poo 4029 001124 MOV Ry, SEOROR $GDDAT hia REGISTER SHOULD BE 
2090 003336 023737 001154 O0lle6 CMP SGDDAT; SBDDAT iJ THE REGISTER OK ? 
2091 003344 001403 BEG 3 
2092 00334 104001 ERROR 1 MESSAGE 
e033 95350 005137 001236 son CKERR ‘De T REGISTER COMPARE ERROR INDICATOR 
2095 003356 113760 001220 000010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 
20% 003364 013737 O01e20 001226 MOV PORTB,PTNBR ;MOVE PORT ADORESS TO LOCATION FOR TYPEOUT 
2097 003372 005037 001236 CLR CKERR’ vELEAR THE "CHECK ERROR’ INDICATOR 
2038 003376 016037 000026 001126 MOV RHOT(RO) SSDDAT _’ GET CONTENTS OF RHOT 
003404 01 000026 O0llee MOV T,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
2100 OO034i2 060037 OOll22 sADD RH11 BASE ADDRESS 
2101 OO03416 O1e7 37 M5UNZ9 991124 MOV ok ae “A REGISTER 
2102 903424 Oe 00124 oOllee CMP SGODAT,S$BDDAT °;IS THE REGISTER OK ? 
2103 003432 001403 BEO 3 BR IF OK 
2104 903434 104001 ERROR 1 5 TYPE MESSAGE 1 
2105 002436 005137 001236 COM CKERR *SET THE RE REGISTER COMPARE ERROR INDICATOR 
gi0e po3442 900240 67S: NOP 
2108 s oFEELLELERES SSR AE LEERE EEE SEER EES ELE ERYS SRLS SAREE SSERE LEER EELS EEEEE 
e198 ‘VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
2111 OO3444 113760 001216 000010 MOVB PORTA,RHCS2(RO) ;SELECT PORT 
sti DOSHED pheGa? pots, COteee PY PORTE PTRGR sHove, Poe TRODRESS TO, LOCATION FOR TyPEOUT 
2114 OOs4e4 O1 pools 001126 MOV RHOS1 (RO) SBODAT’ EP CONTENT OF RHDS1 
211S 003472 012737 000012 OOlize MOV 1, $BOADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
211g ed O01 Lee ADD RO 95 SERADE “ADD RH11 BASE $s 
2117 003504 O01 001 001124 MOV aPGH, SGDDAT wl Ree BE 
2118 bowel 013737 001126 001156 MOV SBDDAT,STMPO ' REGISTER CONTENTS TO 'STMPO’ 
2119 He? 37 176 001156 BIC StCPGM,STMPO ;SAVE SPECIFIED BITS 
2120 003526 737 001124 001156 CMP SGDDAT,$TMPO ° ;COMPARE THE 
2lel 003534 001414 BEQ $ BR IF OK 
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DRIVE ACCESS TEST 
013737 001126 O01166 MOV SBDDAT,STMPY —_s COPY "BAD DATA’ 
042737 OO1000 Oolise BIC #PGM, STMPY ‘CLEAR THE MASKED BITS 
053737 001166 001124 BIS STHP4, SCODAT Oe WITH 000 DATA FOR TYPEOUT 
005137 001236 ie con CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
vias 7 001236 i CKERR CLEAR THE CHECK ERROR’ INDICATOR 
le 001126 MOV RHOS1 (RO) SBOOAT. “GET CONTENTS OF RHDS! 
12737 12 OOllee2 MOV #RHDS1, $ sFORM RE R ADDRESS OF ERROR MESSAGE 
llee ADD HL 4 RODRES ES 
Ua Pe oe 
Bi3e35 1671 Bot tee BIC iat STMPO id ‘ee H's se 
033737 001124 OO1156 che GDDAT, $tMPO 
13737 001126 001166 MOV SEDDAT, STMP4 iBR I + BAD DATA 
042737 010600 001166 BIC 810600°STMPY CLEAR THE PASKED BITS 
053732 001166 001124 B15 STNPY. $GDDAT OR. WITH Gi 2 DATA FOR TYPEOUT 
005137 001236 “i CoH CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
eat 001220 000010 "MOVE  PORTB,RHCS2(RO) ;SELECT PORT B 
013737 1220 OOle26 MOV PORTE, PTNER sH0¥ PORT Aeon SS TO LOCATION FOR TYPEOUT 
1236 " cLR CK ERROR’ INDICATOR 
age tT 
eee bot tSs MOV SUP, roi eB ee oor ERROR MESSAGE 
060037 001122 ADD 
12737 OO01000 001124 MOV RO, SBOAOR SGDDAT sWHATR Bee Tet eB en trp BES 
13737 001126 001156 MOV SBDDAT,STMPO ° -MOVE REGISTER CONTENTS TO ’STMPO’ 
e737 ier7? 001156 BIC 8tCPGM, STMPD sSAVE SPEC SPECIFIED BITS 
1124 001156 CMP SGDOAT, TMPO ° ; COMPARE BITS 
001414 BEQ 70$ “BR IF OK 
es ee |G Ee Hp Oe org 
001166 001124 BIS srr, SGDDAT OR WITH GOOD DATA FOR TYPEOUT 
ies 001236 * Con CKERR ore T REGISTER COMPARE ERROR INDICATOR 
"CLR cK ERROR INDICATOR 
oie Oe GR ERR a gon DS 
12737 p00012 001122 HOV aRHDS SBDADR ;FORM REGISTER RoDRESs.OF ERROR MESSAGE 
poss a 001124 MOV RO POE ey gcol THAT OPRISTER TER SHOULD BE 
013737 001126 001156 MOV SBDDAT, STMPO sHOvE REGISTER CONTENTS TO ’$TMPO’ 
042737 1671 001156 BIC tC] STMPO ; SPECIFIED BITS 
023737 001124 0011 Cre SGDOAT, +MPO i COMPARE E BI 
1 001126 OO1166 MOV SBDDAT, STMPY COPY "BAD DATA’ 
042737 O10600 001166 BIC #10600.$TMPY § ;CLEAR THE MASKED BITS 
001166 001124 BIS STHPS, , SGODAT Oe W tH 000 DATA FOR TYPEOUT 
005137 001236 non CON CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 


5 ke 46 gE J A A A HE EE EER AEE AEE HAE RHE REE 
‘VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 





























MD=-11-DERPP=A, RPOY DUAL CONTROLLER LOcIC TEST - PART 1 MACYL1 27(732) O4-OCT-76 10:31 PACE SB 
REROPACET Ti DRIVE ACCESS TEST 
size 134 113 00010 MOVB PORTA, RHCS2( RD) T 
189 BBs se o1803? o54638 ee HOV Been HD SORT STORE Tie SORT A SERIAL NUMBER 
sie ait treo peiees 0030 ages 126 MOV RHSN(RD) 3508 Bt iSrbEe THe “PORT 3 SERIAL NUMBER 
1 164 023737 001124 Dols CMP $GDDAT, sbopAt ARE THEY 
2184 OO4172 901 SEQ 1s “BR IF a: RE 
2185 OOu1 7 104 ERROR ; REPORT THE ERROR 
2186 176 032737 100000 177570 BIT 8SW15,SWR “HALT ON ERROR ? 
gb? opveo4 BNE 1$ "BR IF SET - PROGRAM HAS ALREADY HALTED 
l HALT *HALT, POSSIBLE CABLE CONNECTION PROBLEM 
189 oo4210 13: 
13) ;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
2193 004210 105737 001103 TSTB © SERFLG sDID AN ERROR OCCUR ? 
e134 004214 SOl41e BEQ TST ::BR IF NO 
195 04216 001000 177870 BIT #SW09, SWR SEE IF YO0P ON ERROR SET (SWR9=1) 
21968 OO4224 001406 BEQ TST2 : NOT 
2197 004226 7? 001103 CLRB = SERFLG tALEAR THE ERROR FLAG 
2198 O04e32 7 901170 CLR STIMES :CLEAR THE MAX ITERATION COUNT 
2199 000177 174646 IMP JSLPERR -GO TO THE LOOP ADDRESS 
i sous 5 RERELKELELALLELELLAELE RE LALLE LALA LERER ALA LA ERELLELALALELERRELEE 
| 2203 jaTEST 2 PORT 'A’ SEIZE/TIMEOUT TEST 
seed t SVERIFY THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
| 2206 ii THE DRIVE. 
ae *# A. WRITE 0’S INTO RHDS1 THROUGH PORT 'A’; VERIFY THAT THE DRIVE 
| 2208 i HAS BEEN SEIZED. 
| 2211 ;# B. READ EACH IVE REGISTER, EXCEPT RHCS1, THROUGH PORT 'B"; 
| eele i VERIFY THA READ’ FROM EACH REGISTER. 
2214 ** C. WAIT FOR, THE PORT TIMEOUT TO OCCUR AND RELEASE THE DRIVE. 
2215 = DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
| i? i VELUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
x 
5sig } SESE RLELALES ee SREEKELHE EE EREL EELS RLRER ELE RE EKELE REE ERS ELESRSE 
| see poles iste: SCOPE SINITIALIZE THE SCOPE HANDLER 
5555 Bpdsua nice, 001266 TST KYBCTL PERFORMING ONLY SINGLE TESTS ? 
| pe23 O04250 001406 BEQ 2% BR IF NOT 
| 2224 252 1900ge BPL 1s >BR IF JUST ENTERED TEST 
| BeeS 254 137 002410 IMP *RETURN & GET NEXT TEST NUMSER 
| 2226 Ooveb0 012737 177777 001266 15: MOV si sree SET SINGLE TEST INDICATOR 
| 5550 poise aise Ge te !|OONe sTERD LOOP ON TEST ADDRESS 
ae 04302 bisa? Qodsle O01 11 MOV iad bs tLORD LOOP ON ERROR ADDRESS 
ge30 310 012737 O000l2 001170 MOV 16, , StIME *:D0 10. ITERATIONS 
| Be3e 
} 


jee? a lina Re QUAL sQUTRSLLER LeSds Zbat Test 1 MACYL1 aus O4-CCT-76 10:31 PAGE S59 
34 


;END OF "SCOPE’ SETUP - START OF MAIN TEST 


1 TEST: 
5533 Baie Ole737 00240 177776 me A >, dePS sae} on titeon TO S IN ee 


224 005037 001250 TIMEOUT VALUE FOR 
004330 005037 O0125e2 CLR TIMEAP ;CLEAR ubpER TIMEOUT TOLERANCE 
004334 905037 O01254 éLR TIMEAM CLEAR LOWER TIMEOUT TOLERANCE 
© SEHEERERSALSLL AAA FSAAELERE KALE RAEL ALAA LRA RAALALAKSRSELERASRALAASLALLFLEE 
TART THE TIMER 
pou340 905037 po1e4 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
4 12737 003720 O01246 MOV #2000.,WATCH SET WATCH TO 2000 M 


5 HERE RARE EAE ESE EEE HEE EEE EEE ERE ER EEE EEE EEE ER EERE E EE EEE EEE EE 
;SEIZE THE DRIVE THROUGH PORT A 
MOVB PORTA, Buse (RO) ;SELECT PORT 


113760 901216 000010 
004360 013737 OO0l2e16 001230 MOV PORTA’ SEIZP sS10RE reais PORT? S ADDRESS 
ase tT ave ef bores 000010 cite st (RO) 
1737 001 001226 MOV PORT iB’ Bree ho HAT oe PORT. 8 TO LOCATION FOR TYPEOUT 
bos 14 i rie 1 ranted HOV PORTS ) SBDDAT’ OCre’ F POORTVE. PoE BY PORT A 
ae stene a 35 MOV RO ‘ sRH 
004426 062737 OO000l2 ODl122 #RHDS1,S$BDADR  ;GENERATE BAD REGISTER ADDRESS 
bows O01 124 CLR CDDAT REGIS ZERO 
1124 001126 GDDAT,SBDDAT 31S THE REGIST 
DO4446 001403 +10 :BR IF IT IS 
OO44S0 104004 RROR 4 ;REPORT THE ERROR 
po44s2 137 005634 MP cs *BYPASS REST OF THE SUBTEST 
OO4W4SE 113760 O01216 o00010 MOVB § PORTA,RHCS2(RO) ":SELECT PORT A 
OO4464 013737 OO0lel6 001226 MOV PORTA, PTNBR “MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004472 016037 go0012 001126 HOV RHOS1 (RO Ro) Ro}, santa iste IF SEIZING Bi ee CORRECT STATUS 
ti 8 
004506 Biss % atest ppttes MOV af Pte SUSE 2800, dt pAfA Be TED Ban 
004514 005137 OO1160 COM STMP1 3C SP LTE ae STATUS 
boveed 013737 001126 001156 MOV SBDDAT,STMPO SAVE THE fc AC STATUS 
004534 3039 Soties BOT Tee onP Scjont sfPo ORE DB eFatus BITS SET ? 
ee tia is She ee 
004544 104005 ERROR 5 


; poenepsanecrnssursouescstenosnecteseunstessterecenneeseatenstareeannas 
sREAD THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STAC 


eS iee3 NOW” Pong PIN fo ve PORT ebOnEsS TO LOCATION FOR_TYPEOUT 
id ( nes one peatere R PORT 1B + FOR SHE Ck 
i ng {5} 1ST oee Res ister Bau: 5 * FOR CHECK 

“(SP) "por i "FOR CHECK 
Sp) sat ORE REGISTER Rec PORT B’ FOR CHECK 


) ;STORE Ret aTER RHCA, PORT B, FOR CHECK 
SP) ;STORE REGISTER RHOF, PORT B, FOR CHECK 


PE SERS R RRR Gaus ata naan nee ee ee ee ea 


sete 


nie 
a 





i i en = rn ere ne 1 
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DERPPA.P11 T2 PORT ‘A’ SEIZE/TIMEOUT TEST 
oovele Ol 6046 O00040 MOV RHER@(RO), -($P) sSTORE REGISTER RHER2, PORT B, FOR CHECK 
5630 2 O16046 000020 MOV RHLA(RO),-(SP) STORE REGISTER , PORT B, FOR CHECK 
doves : BONE o0c026 MOV RHDT(RO),-(SP) :STORE REGISTER RHDT, PORT B, FOR CHECK 
$636 1 000006 MOV RHDA‘RO) , (SP) ;STORE REGISTER RHDA, PORT B, FOR CHECK 
ee34 OOvE 3 O16046 ooo024 MOV RHMR(RO).-(SP) STORE REGISTER RHMR. PORT B. FOR CHECK 
42 Ol ooo014 MOV RHERI(ROS,-(SP) :STORE REGISTER RHERI, PORT 8, FOR CHECK 
cea at tar ae 2 Oe Se ed 
9g {AIT FOR PORT A TO TIMEOU 
S530 004646 005760 o00n1e2 18: TST RHDS1(RO) sWAIT FOR THE DRIVE TO TIMEOUT 
230 S2 1006 BNE $ *BR WHEN TIMEOUT OCCURS 
2 54 Boao 001246 TST WATCH ? CHECK Wat TH 
2303 O04660 001372 1 :BR IF NO ZERO 
2304 OO04s62 104036 ERROR 36 *NO HHEOUT WITHIN 2 SECONDS 
2305 OO4664 000137 IMP 4§ :B TIMEOUT TIME CHECK 
2306 dowe70 Ole? 37 000340 177776 2S: MOV #7432.» aePS SET PRIORITY 10 7 mt STOP CLOCK 
2307 O046 1 001244 O01es. MOV TIME, TIMEA -SAVE THE ELAPSED TIME FOR PORT A 
2308 O04 004537 9574S0 JSR RS, TOLER $ SENET HE TOLE 
z 004710 001250 .WORD  TIMEA sTIMEOUT VALUE FOR PORT A 
2310 O0471l2 012637 901252 MOV (SP)+, TIMEAP 25% TOLE 
e311 004716 012637 001254 MOV (SP)+,TIMEAM  3-25% TOLERANCE 
23i3 + SLSEKSRE ERAS AARAARE LALA REEL ERE RAL SSELLALAEA LAER A ELE ALA ALAA AERA LERELEE 
e314 VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST SOO MS 
2316 OO04722 023727 001244 000764 CMP TIME, #500. ;WAS MEASURED TIME AT LEAST SOD MS? 
2317 004730 103001 BHIS 35 : IT WAS 
e318 904732 104055 ERROR 55 REPORT TIMEOUT TOO SHORT 
2320 SERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 


gxel VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 


2323 004734 012737 O00240 177776 3$: MOV #(5#32.>,08PS  ;RESTORE PRIORITY TO 5 
2325 VERIFY THAT THE DRIVE IS IN NEUTRAL 

004742 001242 CLR RELERR sCLEAR THE 'RELEASE ERROR ’ INDICATOR 
2308 OO4746 012737 OO0Dle O01122 MOV SRHDSI SB SBDADR FORM THE ADDRESS OF RHC: FOR TYPEOUT 
2309 004754 001122 ADD ADD THE 170 BASE ADDRESS 
2330 O04760 012737 O11600 001124 MOV Bet Pan pa ADRY, “COMPARISON CONSTANT 
2331 O04 113760 001216 O00010 MOVB PORTA, RHC seppet PORT A. 
2332 O04 016037 000012 O01ib2 MOV Penst thas STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
ci Ga Biter Biles Gitte BRL TEFo) ttng [Sede GesiGEh errs ron Te coP 

i atc a01220 aa MOV pia eo) InP Steer Po ORV’ STATUS REGISTER FROM PORT 8. 

53% Gostae 6 ete potteo MOV pay 138 ie NTO *STMP 
2338 04 100100 001160 BIC Ste. pa CLEAR POR TOE PENDEN NT BITS FROM THE COPY 
2339 DO5046 023737 001156 001160 CMP STMPO, STMP1 1s THE HE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
2340 1 BNE 645 
eat 905056 005737 O01156 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
5345 re EOEOR aes 1 PORT BR ORI N NEUTRAL OR NOT SEIZED 
2344 005066 eri . ‘MP 8S ~ SBYPASS Pie Reet of CHECKS 
2345 005072 013737 OOlib2 O01126 64S: MOV STMP2,SBDDAT  ;SET UP POSSIBLE BAD TATA FOR ERROR MESSAGE 
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-Pll Te PORT *A’ SEIZE/TIMEOUT TEST 


234 O0S100 013737 001220 o01226 MOV PORTB, PTNBR i SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
2347 005106 113760 001220 000010 MOVB PORTS; RHCS2(RO) ;SELECT PORT 
2348 005114 737 OO1156 TST STMPO’ SEE IF CORTUS EQ 0 FROM PORT A. 
gai3 905120 OOL41 BEQ 65S BR IF ZERO 
1 l 091216 001226 MOV PORTA, BTNBR SEI ING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
2351 005130 013737 001164 001126 MOV $TMP3, SBODAT "BAD DATA’ FOR ERROR TYPE 9 
2 005136 113760 001216 O000I0 MOVB PORTA, RHCS2(RO) SEL LECT PORT A 
2353 005144 005737 001160 TST STMP -SEE IF STATUS EQ ZERO FROM PORT B. 
2354 005150 001004 BNE Bes BR IF NOT 
2355 005152 O!2737 177777 OOle42 65S: MOV #-1, RELERR *SET *RELEASE ERROR’ INDICATOR 
2356 005160 104dee ERROR 22 *TYPE ERROR MESSAGE 22 
2357 005162 013737 OO1162 001126 66%: MOV STMPe, SEDDAT *LOOK FOR BIT FAILURES WHEN RHDS1 READ 
2358 005170 013737 001216 OOl2c6 MOV PORTA; PTNBR :¢ POR 
2359 005176 O42737 100100 O0116e2 BIC saTALW STMP2 DON’T CHECK ATTN BIT OR W BIT 
2360 O0S204 023737 O0112e4 O0116e2 CMP Tempe. sALL BITS OK ? 
2361 O0Sel2 001401 BEQ 3BR IF _OK FROM PORT A. 
2262 005214 1 ERROR T ERROR 
2363 005216 013737 OO01164 001126 67%: MOV STHP3, SBDDAT ; CHECK RHDS! FOR BIT FAILURES - FROM PORT B. 
2364 005224 013737 901220 O0l2c6 MOV PORTB; PTNBR “CHANGE P: 
2365 O0S5e32 042737 100100 O01164 BIC BATA'VV,STMP3 DON’T CHECK ATTN BIT. OR WV BIT 
2366 005240 023737 O011e4 O01164 CMP SGDDAT, $TMP3 ; SEE IF READ OK FROM PORT B. 
2367 00524 001401 BEQ 68S *BR I 
2368 005250 104007 ERROR 7 REPORT ERROR 
e363 o0S252 o00240 68$: NOP 
2371 4 os LEFKEKEHE SEL EL KSA KLE RK LA RHE SHEE RL ER SELLERS SSAR SSS LR MS ERE RSAKE RELA LK SRE 
2372 :CHECK THE REGISTERS STORED THROUGH PO PORT B. ALL REGISTERS SHOULD BE ZERO. 
2373 ?THE REGISTERS ARE STORED ON THE STACK 
ie pos2s4 0137 001220 001226 4S: MOV PORTB, PTNBR sCHANGE PORT NUMBER’ TO THE OPPOSITE PORT 
ea7b 005262 13a 001 122 cial HOV RO $80 R ores poRecs FOR REGISTER RHERI 
2378 poses pes? as robes MOV Copy geppaT eT cc HHE S10 STORED CON COR TENTE™ OF RHER1 
2379 005300 001401 BEQ +4 
2380 005302 104006 ERROR 6 IREPORT Th FER ORT B SAW NON-ZERO REGISTER 
2381 005304 010037 001122 MOV RO, SBDADR 55 £0 FOR REGISTER RHMR 
2382 005310 062737 001122 ADD #RHMR,SBDADR FOR TYPEOUT 
2383 005316 012637 OOlic6 MOV (SP)+, $BDDAT eee STORED CONTENTS OF RHMR 
2384 005322 001401 BEQ +4 ZERO ? 
2385 005304 104008 ERROR 6 : REPORT THAT PORT 8 SAW NON-ZERO REGISTER 
2386 005326 010037 001122 MOV RO, SBDADR *BASE ADDRESS FOR REGISTER RHDA . 
2387 D05332 000006 001122 ADD #RHDA, SBDADR sROORESS OF RHDA FOR TYPEOUT 
2388 01 001126 MOV (SP}+,SB0DAT — ;CHECK THE STORED CONTENTS OF RHOA 
2389 005344 001401 BE +4 > CONTENT 
| 2390. 00546 104006 ERROR 6 >REPORT Boat 'B SAW NON-ZERO REGISTER 
2391 010037 o001122 MOV RO *BASE ADDRESS FOR REGISTER RHDT 
5335 poeses Bisesy Ohtise, tee AY SREDT» $BDADR Ore A THe STORED CONTENTS. OF RHOT 
S344 proses 001401 BEQ am” CONTENTS ZERO ? 
2395 104006 ERROR 6 SREPORT THAT PORT B SAW NON-ZERO REGISTER 
2396 10037 001122 NOV RO ADDRESS FOR REGISTER RHLA 
2397 eee 001122 ADD #RALA, SBDADR ; ADDRESS FOR T 
2398 OOS404 012637 O01ie6 MOV (SP)+,$BDDAT  ;CHECK THE ST CONTENTS OF RHLA 
2399 b0s410 001401 BEQ SCONTENTS. ZERO ? 
2400 O05412 104006 ERROR 6 T THAT PORT B SAW NON-ZERO REGISTER 
2401 005414 010037 001122 RO, SBDADR *BASE ADDRESS FOR REGISTER RHER2 


| 


s iaktpenatonagidaar ei etaasa 
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MD-11-DERPP-A, RPOY DUAL CONTROLLER LOGIC T 
BeREPA BT 8 PORT 'A’ E bes Hues 
2402 oO0S420 062737 C0004 001122 
03 2 Ol 001126 
oy H3¢ 1401 
u Tl 
ae 
Supe 50544, pRAAgS 001122 
2408 OO0S4SO 912637 091126 
cit3 Boewee Tobe 
241 uB0 010037 001122 
241 4 062737 O00034 001122 
e413 O0sY7e 012637 001126 
Bis A003? 001122 
syis Mier Boos 000036 001122 
2418 005514 12637 001126 
2419 005520 001401 
eve 05522 LONGO ee 
Sus5 BOEESO BESTS? BphH30 001122 
2423 005536 012637 OOll26 
e424 905542 001401 
2425 OOSS44 104006 
2425 005546 010637 001122 
2427 0055S Obe737 OO0O4S 001122 
2438 005560 012637 O0i126 
2429 005564 001401 
2430 905566 104006 
2431 005570 010037 001122 
2432 005574 062737 OOCO44 001122 
2433 O0S602 012637 001126 
| By3y D05E05 001401 
S32 GOeELS bioos? o01122 
2437 O0S5616 oco04—6 001122 
2438 005624 O01 001126 
2439 005630 001401 
2440 0532 104006 
eu 005634 5S: 
5aa5 
caus 05737 001103 
| ES gee ae 
2447 O05642 032737 001000 177570 
ee 1406 
| Bay 1 001103 
| BySO O05656 37 001170 
00s662 000177 173222 
| e453 
2454 
Suee 
| 
| 
| 
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#RHER2, SBDADR 
(SE, $BDDAT 


RO, SBDADR 
Ro , SBOADR 
(SE), SBDDAT 


#RHCA, SBDADR 
($P)+, SEDOAT 


$BDADR 
BRaee So $SDADR 
(SP)+, $BDDAT 


“g 
RO, SBDADR 
#RHSN, SBDADR 
(SP) +; SBDDAT 
“te 

ROMER SEOAOR 
(SP)+, $BDDAT 


rah a 
+, $BDDAT 


SBDADR 
aRtieee $BD 
(SP)+, $800A 
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;ADDRESS OF RHER FOR TYPEOUT 
sCHECK THE TORED CONTENTS OF RHER2 


seo PORT THAT POR B SAW NON-ZERO REGISTER 
Seer aie 
K THE STORED CONTENTS OF RHOF 

eT B SAW NON-ZERO REGISTER 


peaanien gon kos 
{CHECK THE STORED CONTENTS OF RHCA 


sCONTENTS 2 PORT B SEES a REGISTER 
;BASE ADDRESS FOR REGISTER RHCC 

pring FORE CONTENTS: OF RHCC 
eee ee 

REPORT THAT PORT B SEES NON-ZERO REGISTER 
; SS FOR cp Type cut RHSN 


conte ai: stow CO CONTENTS OF RHSN 


THAT PORT B SEES NON-ZERO REGISTER 
{BASE RODRESS FOR REGISTER RHER3 
SS OF RHER3S FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RHER3 
; CONTENT eare y 


ON 
REPORT THAT PORT B SEES NON-ZERO REGISTER 
; BASE ADDRESS FOR REGISTER RHECI 
ADDRESS OF RHEC1 FOR TYPEOUT 
;CHECK THE STORED CONTENTS OF RHECI 


sCONTENTS ZERO ? 
T THAT PORT 8 SEES NON-ZERO REGISTER 
ADDRESS FOR REGISTER RHECe 
ee ane CONTENTS OF OF RHEC2 


REPORT tat RPORT B SEES NON-ZERO REGISTER 


;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 


s010 AN ERROR OCCUR ? 


‘iP IF LOOP ON ERROR SET (SWR9=1) 

: BR T 

jGLE 
* CLEAR 


ERROR F 
THE MAX ITERATION COUNT 
;G0 TO THE LOOP ADDRESS 


5 HS A Ek EEE JE EEE EEE EEE EEE SE ESE EAE SEE EEE EE EEE 
PORT 'B’ SEIZE/TIMEOUT TEST 


:#TEST 3 


ef % 
:#VERIFY THAT THE DRIVE CAN BE SEIZED AND THAT THE PORT TIMEOUT RELEASES 
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2458 7* 
2459 :# . WRITE O’S INTO RHDS1 THROUGH PORT '8’; VERIFY THAT THE DRIVE 
2460 i HAS BEEN SEIZED. 
Sie3 2% B. READ EACH DRIVE REGISTER, EXCEPT RHCS1 THROUGH PORT ’A’; 
eye3 i VERIFY. THAT O'S ARE READ FROM EACH REGISTER 
65 '% C, WAIT FOR THE PORT TIMEOUT TO OCCUR AND RELEASE THE DRIVE. 
Supe ty MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
2467 1% VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
ebg i NEUTRAL. 
2470 } AEKSKA LALA ALKA AA LALA LAL HELLA ALLS RAKES RLS RELALAF KELL LHE LL ELE LAE 
2471 OO0Sb66 tST3: 
ee 005666 000004 SCOPE sINITIALIZE THE SCOPE HANDLER 
005670 005737 001266 TST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
2474 74 001406 BEQ 2g *BR IF NOT 
2475 76 100002 BPL 1§ ;BR IF JUST ENTERED TEST Ps 
2476 005700 000137 902410 IMP EXEC *RETURN & GET NEXT TEST NUMBER 4 = 
2477 005704 012737 irre 001266 1$: MOV a-1 KY TL iE, T SINGLE TEST INDICATOR : 
2478 005712 112737 1102 2: MOVB 3,$Ts ST 
a tee fie fers Bm YH Eerm LR a Wt TL 
Eat 005 piss 33 000012 001170 MOV Ht Tee 7:00 10. ITERATIONS 
2483 $ iND OF SCOPE’ SETUP = STPRT OF MAIN TEST 
eved END OF * SETUP - START OF MAIN TEST 
2486 905742 TEST3: 
2487 005742 012737 O00240 177776 MOV #<(5¥32.>,08PS  ;SET PRIORITY TO S IN CASE LOOPING 
2488 005750 005037 001256 CLR MEB CLEAR ME OUT VALUE FOR PORT 8 
005754 005037 001260 CLR TINEBP ;CLEAR UPPER R TIMEOUT TOLERANCE 
e430 005760 005037 O01262 CLR TIMEBM CLEAR LOWER THrEOUT TOLERANCE 
2492 5 EFL KE EE LHK LSE SSL ALE REL ELRR SEL AHE LSS ELAS SELAH R SLA SHAFER EASE RELA EELKSE 
e433 :START THE TIMER 
2495 005764 005037 001244 CLR TIME CLEAR THE ELAPSED TIME COUNTER 
ets 005770 012737 CO3720 o012%6 MOV #2000. , WATCH SET WATCH TO 2000 MS 
slag S83 RERELAAAAERKASAAEKEY” RHR REAAALARAHS RARER AAA AA AA AKA LAKH RELA K KL LERE 
2500 ;SEIZE THE DRIVE THROUGH PORT B 
2502 005776 113760 001220 000010 MOVB § PORTB, RHCS2(RO) tee oe PORT 
2503 O06004 013737 O01 001230 MOV PORT Ti °S IZING Bort’ S ADDRESS 
se HE TTR BIE oom “i 
poeoes 13737 BOISIE BoISee HOV cits F = ov a TQ LOCATION FOR TYPEOUT 
te 
ce tees fee Bie Bis =| GY RIL ce aa De 
2508 O06040 016037 12 001126 MOV RO itro) ), SBDDAT’ IF DRIVE SEIZED By PORT B 
2509 O0604% 010037 ODilee MOV RO, SBDADR’ RaiLS BASE ADDRESS 
e510 006052 be? 37 go001 001122 a0 sRADSI, $BDADR iGEN ERATE BAD REGISTER ADDRESS 
BSE 6064 Wee Bpt tS 001126 nn ee if ee Ree TStER 
2513 006072 001403 +10 BR IF IT IS 
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T3 PORT °B’ SEIZE/TIMEOUT TEST 


eo Ooo n-~ 
aietat 
BOGS 


Rate 
~ 


737 
0 


seeeeeseeeeee 


° 
o 


scene erste eeus ube Tesenesaunnusulpununansusteuecsluusnsnatssotareresees 
AD THE DRIVE REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 


PORTA,RHCS2(RO) ;SELECT PORT A 
PORTA, ee prove TOE ADDRESS TO gee Ne TYPEOUT 


RHEC2 
RHECTCRO)’ (EP) STORE REGISTER RHEC1, PORT a? FOR CHECK 
RHER T 

RHSN(RO), -(SP) 

RHCC(RO),-(SP) ; 
RHCACRO), -(5P) : 
RHER2(ROS,-(SP) ; 
RHLA 

RHDA( 

RHMR(RO)’ -(SP) 
RHERI(ROS,-(SP) :STORE REGISTER RHERI, PORT A, FOR CHECK 


SRELER EKA LEE ELE SRE EK EE LESSEE SE EEA LAL EL EERE RE ELE REESE SLE E LER SES RE EEE EERE 
halt FOR PORT B TO TIMEOUT 


RHDS1 (RO) ;WAIT FOR THE DRIVE TO TIMEOUT 


WATCH * CHECK 
1$ ?BR IF NOT ZERO 

3 *NO TIMEOUT WITHIN 2 SECONDS 
#<7%32. >, aaPS ST paar T TO TINE STOP CLOCK 
TIME, TIMEB >SAVE THE ELAPSED TINE FOR PORT B 
RS, TOLER ae ae TOLERA 

TIMEB FOR BOR 


(SP)+, TIMEBP 
(SP)+, TIMEBM 5 toey TOLERANCE 


5 HE SESE HEHE HE SE AE ESE SEE HEHE AE EEE SEE EEE ERE SESE EE SESE ER EEE REE AE EE EE 
VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST SOO MS 


Le, a0, ;WAS MEASURED TIME AT LEAST SOO MS? 
ERROR 55S 


001244 000764 
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4 pad THE ERROR 
5 S REST OF THE SUBTEST 
peat »RHCS (RO) 


*PTNG a EAE appeese TO LOCATION FOR TYPEOUT 
Repst ROD seobat «SEE IF SEIZING PORT SEES CORRECT STATUS 
#MOL!PGM! DPR! DRY, SCDDAT jEXPECT ED STAT S 
ScODAT, STMPI "USE aah DATA 
TMP > COMPLEMENT Ane EXPECTED STATUS 
SBDDAT,STMPO  :SAVE THE RCTUAL STATUS 
STMP1, $TMPO *CLEAR UNWANTED BITS 
Scuba. STMPO ARE THE EXPECTED STATUS BITS SET ? 
°BR IF THEY ARE 
*REPORT THE ERROR 







=(SP) sSTORE REGISTER RHEC2, PORT A, FOR CHECK 


w 
ae 


REGISTER RHERG, PORT A} FOR CHECK 
REGISTER RHSN, "PORT "FOR CHECK 
REGISTER RHCC, PORT a FOR CHECK 
REGISTER RHCA, PORT A; FOR CHECK 
REGIS 
REGISTER RHER®, PORT A, FOR CHECK 
RO),-(SP) :STORE REGISTER RHLA, PO K 
HOT(RO},~(SP) 


; HE 
RO),-(SP) ;STORE REGISTER RHDA, PORT A, FOR CHECK 
;STORE REGISTER RHMR, PORT A, FOR CHECK 


RO),-(SP) ; 





TO 
T 


35 

; STORE 
; STORE 
STORE 
STORE 
STORE 


OF(RO)’=(SP) ; 
( 


aaa 






















:BR WHEN TIMEOUT OCCURS 
WATCH 


R 
“REPORT TIMEQUT TOO SHORT 























A 
; 


B8 


Bee eReBR 


ROARS 
WONOUCWM-O 


RUGRIR 
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MEOUT TEST 


std tb btek dekekahedabstehahabak hedghedchahadahsbodehelohghohabbakahbaksbahatebabSubatel lehalahghahdabalthalalalalalale 
VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT 8 TIMED OUT 


177776 38: MOV #<5#32.>,0"PS  ;RESTORE PRIORITY TO S 
:VERIFY THAT THE DRIVE IS IN NEUTRAL 


I 
PORT *B’ SEIZE/T 


012737 


oO 
oO 
=] 
fu 
ys 
Oo 


S037 001242 CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
012737 O0001e O01122 MOV #RHDS1,$BDADR FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
0037 OOllee ADD DR “ADD THE 1/0 BASE ADDRESS 
012737 011600 001124 MOV #MOL!PGM!DPR!DRY,SGODAT _;COMPARISON CONSTANT 
113760 O0l216 000010 MOVB PORTA, RHCS2(RO) iseert T PORT A 
016037 O00012 001162 MOV RHDS1 (RO) T THE DRIVE” STATUS REGISTER FROM PORT A. 
013737 O01162 001156 MOV STMP2, STMP T INTO ’STMPO’ 
042737 100100 001156 BIC #ATAIVV, STMPO REAR PORT DEPENDENT BITS FROM THE COPY 
113760 001220 000010 MOVB  PORTB ¥,STHPO | isaetr POR 
016037 O00012 001164 MOV RHDS1{RO) T THE DRIVE | “STATUS REGISTER FROM PORT B. 
013737 001164 001160 MOV STMP3, SIMPL. IT INTO ’STMPI’ 
042737 100100 001160 BIC wATA! VV, STMPL soe TE ae T DEPENDENT BITS FROM THE COPY 
023737 001156 OO1180 CHP SHPO, § StMP1 315 THE STATUS REGISTER THE SAME FROM BOTH PORTS ” 
005737 001156 TST STMPO ; REGISTERS ARE THE SAME: ARE THEY ZERO ? 
001037 BNE 66S °BR ie 
104 ERROR 46 REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
000137 006676 IMP 68S “BYPASS THE REST OF THE CHECKS 
013737 OOll162 001126 64S: # MOV STMP2,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013737 OO0l220 001226 MOV PORTS, PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
113760 001220 00010 MOVB § PORTB;RHCS2(RO) ;SELECT POR 
005737 OO1i156 TST STMPO’ i SEE IF ere TUS EQ 0 FROM PORT A. 
001414 BEQ 65S *BR IF ZERO 
013737 001216 001226 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
013737 OO1164 O011e6 MOV STMP3,SBDDAT  ;7BAD DATA’ FOR ERROR TYPE OUT 
113760 O1el6 000010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT 
057 3/ 001i Ist SNP 3 SEE IF STATUS EQ ZERO FROM PORT B. 
Ole 177777, Oole42 65%: MOV #-1,RELERR Se "RELEASE ERROR’ INDICATOR 
1 case ERROR 22 YPE ERROR AGE 22 
013737 O01162 O01126 66%: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RHDS1 READ 
013737 001216 001226 MOV PORTA, PTNBR PORT NUMBER 
042737 100100 001162 BIC #ATA! VV, STMP2 :BON’T CHECK ATTN BIT OR VV BIT 
3737 O01le4% OO1ibe CMP $GDDAT , $TMP2 L 
001401 BEQ 7 $ iBR IF OK Kon PORT A. 
104007 ERROR E 
013737 001164 001126 67%: MOV STMP3, SBDDAT CHECK RHDS1 FOR BIT FAILURES - FROM PORT 8. 
013737 001220 O012c6 MOV PORTB; PTNBR NGE BER 
042737 100100 001164 BIC #ATA! VV, STMP3 EBON? T CHECK ATTN BIT OR VV BIT 
023737 001124 OO1164 cH S$GDDAT, $TMP3 ; SEE IF READ OK FROM PORT B. 
104007 ‘ERROR 7 REPORT ERROR 
000240 68$: NOP 


5 EAE IERIE GEISER ETHIE IEE EEE 1 ER EGE EEE EE EEE 
: AHECK THE REGISTERS STORED THROUGH PORT A. ALL REGISTERS SHOULD BE ZERO. 
THE REGISTERS ARE STORED ON THE STACK. 


013737 001216 O0le26 4S: MOV PORTA, PTNBR sCHANGE ’PORT NUMBER’ TO THE OPPOSITE PORT 
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MD-11-DERPP-A, 
DERPPA.P11 


SSSR 
SRN SROLeRES 


“ 

ronan 
a oe 
£vMo 


010037 
062737 


PORT 


0 
0 


001122 
00001 
00 


11 

0014 
1126 
001122 
000024 
001126 
001122 
000006 
001126 


001122 
000032 
001126 


001i2e 
000036 
001126 


001122 
009030 
001126 


001122 
O0004e 
001126 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


CO1122 


001122 


001122 


001122 


RPOY DUAL CONTROLLER LOGIC TEST = PART 1 MACYL1 27(732) 
T3 *B’ SEIZE/TIMEOLT TEST 


RO, SBDADR 
#RHER1, SBDADR 
(SE)+, $BDDAT 


"% 

RO, SBDADR 
#RHMR, SBDADR 
(SP, ’ SBDDAT 


“ty 
RO, $BDADR 

RAGA SEDADR 
(SP+, SBDDAT 


e 

RO, SBDADR 
#RHDT , SBDADR 
($+, $BDDAT 


"& 
RO, $BDADR 

#RHLA, SBDADR 
(SE)+, SBDDAT 


DADR 
BRHPRS $BDADR 
(SP) +, $BDDAT 


P 
RO, SBDADR 

#RHOF , SBDADR 
(SP)+, SBDDAT 


a” 
RO, SBDADR 

#RHCA, SBDADR 
(SP)+, * SBDDAT 


0, SBDADR 
ORee. $BDADR 
($4, SBDDAT 


g* 
RO, SBDADR 

#RHSN, SBDADR 
(SP) +, SBDDAT 


0, SBDADR 
BRAPES $BDADR 
($F) +, $BDDAT 


’ 
RO, S8DADR 


ee ee. 
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;BASE GRORESS FOR REGISTER RHERI 
;ADDRESS 0 F RHER1 FOR TYPEOUT 
3 CHECK THE STORED CONTENTS OF RHER] 
NT sa 


T PORT A SAW_NON-ZERO REGISTER 

‘BA SE AODRESS FOR REGISTER RHMR 

;ADDRESS OF RHMR FOR TYPEOUT 

: CHECK 18 ZERO CONTENTS OF RHMR 
;CONTENTS ZER 
REPORT THAT PORT A SAW NON-ZERO REGISTER 
: BASE ADDRESS FOR REGISTER RHDA 
s ADDRESS OF RHDA FOR TYPEOUT 
SCONTEN Trae CONTENTS OF RHDA 
REPORT THAT PORT A SAW NON-ZERO REGISTER 
BASE ADDRE STER yer 


; SS FOR _REGI 
: DDRESS DT FOR TY’ 
;CHECK THE piongo CONTENTS oF RHDT 


CHECK 
;CONTENTS ae 
REPORT THA T PORT A SAW NON-ZERO REGISTER 
; BASE pores FOR ne toner RHLA 


FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RHLA 
TS ZERO ? 


: T PORT A SAW NON-ZERO REGISTER 
;BASE ADDRESS FOR Beelat ER tae 2 

ADDRESS OF RHER2 FOR TYPEOU 

;CHEC ENTS. ZEN? CONTENTS it RHER2 


T A SAW ne REGISTER 


AD 
SADOR ESS OF RHOF FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RHOF 
;CONTENTS ZERO ? 
;REPORT THAT PORT A SAW ee REGISTER 
sBASE ADDRESS FOR ay HAL RHCA 
ADDRESS OF RHCA FOR TYPEOUT 
SCHECK THE STORED CONTENTS OF RHCA 
CONTENTS ZERO 
fag! THAT PORT A SEES ye  geg REGISTER 
ASE ADDRESS FOR REGISTER RHCC 
ADDRESS OF RHCC FOR TYPEOUT 
scr 152 eg CONTENTS OF RHCC 
REPORT THAT PORT A SEES NON-ZERO REGISTER 
; BASE ADDRESS FOR REGISTER RHSN 
ADDRESS OF RHSN FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RHSN 
3 CONT ENTS ZERO ? 
REPORT THAT PORT A SEES NON-ZERO REGISTER 
BASE ADDRESS FOR pear elee RHERS 
ADDRESS OF RHER3 FOR T 
cee HE prone CONTENTS OF RHER3 
;REPORT T MAT PORT A SEES NON-ZERO REGISTER 
BASE ADDRESS FOR REGISTER RHECL 


_ 
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26s4 rae 00i4C1 

ete 
¢ 7e%2 73e 0 6DO0045 

on 7250 Dleb3s? O0l1126 

Ba 7es4 001401 

Sra; Sassen 

2$3e 

et33 

Rd * 

2ee3S O07260 105737 C1103 

oa 057264 00 ais 

rm) 007265 001905 

2698 007274 001406 

2699 007276 105037 901103 

2700 007302 501170 

e701 007206 000i77 i71576 

270e 

2703 

2704 

270s 

270 

2-07 

e7ce 

2703 

2710 

2e7i\1 

e7le 

2713 

271% 

2715 

27i& 

2717 

2718 

2719 

2720 

2721 

e7ee 007312 

Sl A BE ze 

272s een 001406 

e7ee 007322 100002 

2727 wee Roce 002410 

$758 borsse fisea boone 

2730 007344 012737 0073266 

2731 012737 007266 

e73e G07 012737 000001 

2733 

273 

2737 
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;STEST 4 PORT 'R’ COMMAND SEIZE TEST & SET 'VV-A 

t SVERIFY THAT THE DRIVE IS SEIZED WHEN A COMMAND IS ISSUED. SET ‘vv’ 
i FOR THE PORT UNDER TEST. 
*# @. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT °A’. VERIFY THAT THE 
i DRIVE WAS SEIZIED BY PORT 'A’ AND THAT THE ’GO’ BIT RESET. 
'# B. ISSUE PEAOIN PRESET COMMAND THROUGH PORT ’A’. VERIEY THAT THE 
# "VV’ BIT WAS SET FOR PORT "A? AND THAT THE ’VV’? AIT WAS NOT SET 
:# FOR PORT 'B’. (NOTE THAT THE ‘VV’ BIT NOT BEING SET FOR PORT 
i *B’ CAN ONLY BE TESTED Hie FIRST TIME THROUGH THE PROGRAM. ) 
*# C. STALL FOR 2 SECONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED 
i THE DRIVE AND THE THE DRIVE RETURNED TO NEUTRAL. 
jSUgCASEHESSESORESOSORESEEREDREEROROSIOSENENPLISINUNEEEIUDNONS 

SCOPE s INITIALIZE THE SCOPE HANDLER 

TST KYBCTL “PERFORMING ONLY SINGLE TESTS ” 

BEQ 2s BR IF NOT 

BPL *BR IF JUST ENTERED TEST 

i i Om NEM a 

Fe 4g: MOVB oF iF Ecy 

MOV sTEST4, SLPADR ; LOAD LOOP ON TEST ADDRESS 

MOV STESTY,SLPERR LOAD LOOP ON ERROR ADDRESS 

MOV #1, STIMES *:D0 1 ITERATION 


ere gt DRT AY COMMAND GEIZE Teel & eT WAT 


. AND OF SCOPE’ SETUP = START OF MAIN TEST NHESHREAESS 
‘END OF ’SCOPE’ SETUP - START OF MAIN TEST 


ee me a ee 





° ort 1 MACYLL e7(732) 
TEST 


apHEC 1, $8DADR 
sf) +, $B0DAT 


‘% 

R95 $soap 

aRHECe SDROR 
(SP) +, $800A7T 


‘" 
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;RODRESS OF SHECI FOR TYPEOUT 
:CHECK THE STORED CONTENTS OF RHECI 
;CONTENTS ZERO ? 3 
SREPORT THAT PORT @ SEES NON-ZERO REGISTER 
:BASE AQORESS FOR REGISTER RHECE 

LADDRESS OF RHECe FOR T 

sCHECK THE STORED CENTENTE OF RHEC2 
SCONTENTS ZERO ? a 

;REPORT THAT PORT A SEES NON-ZERO SEGISTER 


"jo AN ERROR OCCUR ? 
,8R T 


:-BR IF 
:SEE IF LOOP ON ERROR SET (SWR9=1) 
::8R IF NOT 

ATE AR THE ERROR FLAS 

:CLEAR THE MAX ITERATION COUNT 
*GO TO THE LOOP ADDRESS 





me wee ee 





RERRE Cnr ce RRARERRRAIS 
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PORT *A’ COMMAND SET *VV-A’ 


7°? 1 
E TEST & SET 


TEST4: ; 
113760 001216 cO0010 MOVB  PORTA,RHCSE(RO) ;SELECT PORT A 
013737 O0lel6 O0l226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
£ s SERERRERAHRERT SSLELSLERALSLEFSSAFAALLLAALSAELASLESLRALSLSALEFSFSALELLAFSE 
:START THE TIMER 
005037 001244 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
012737 G03720 o01246 MOV 82000.,WATCH  ;SET WATCH TO 2000 MS 
O:37s? 001216 691230 MOV PORTA,SEIZPT  ;*SEIZED’ PORT ADDRESS 
gg REKLSLSELAAELELLLSLA SEL ALLEL SLL SLLALLLASLAESELELELREAAL ALAS FESAELSFELE 
:$SSUE DRIVE CLEAR COMMAND 
012760 000011 900000 MOV S11,RHCSI(RO)  ;ISSUE A DRIVE CLEAR 
§  FERSEREAELELLASLLALALLELELLLLELESLALLELAFLALSLSLARAARELALELA LALLA LLL SEES 
: VERIFY THAT DRIVE SEIZED BY PORT A. 
113760 001220 900010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 
013737 001220 OOlect MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005037 001236 CLR -CLEAR THE ’CHECK ERROR’ INDICATOR 
016037 O000l2 001126 MOV RHDSI(RO),SBDDAT’ :GET CONTENTS OF RHDS1 
012727 o000012 OOll22 MOV #RHDS1,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
060037 O01122 ADD RO, SBDADR ;ADD RH11 BASE ADDRESS 
005937 001124 CLR SGHDAT *WHAT REGISTER SHOULD BE 
023737 O0lle4 O01126 CMP $GDDAT,SBDDAT ;IS THE REGISTER OK ? 
091402 . BEQ 64S *BR IF OK 
Lage ERROR le ‘TYPE MESSAGE 12 
005137 001236 a con CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
113760 001216 000010 MOVB §PORTA,RHCS2(RO) ;SELECT PORT A 
01 D01216 O0l226 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
ohana 001236 CLR CKE sCLEAR THE ’ CHECK ERROR’ INDICATOR 
016037 O000l2 001126 MOV RHDS1(RO),$BDDAT’ :GET CONTENTS OF RHDS1 
12737 000012 OOllee MOV #RHDS1.SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
0011 ADD RO, SBDADR sADD RH11 BASE ADDRESS 
012737 O11600 001124 MOV #MOL!PGM! DPR! DRY, T :WHAT REGISTER SHOULD ye 
013737 O01126 Oo011S6 MOV SBDDAT,STMPO|; REGISTER CONTENTS TO ‘S$TMPO’ 
042737 106177 001156 BIC 8tC71600,STMPO ;SAVE SPECIFIED BITS 
923737 OOlie4 001156 CMP SGDDAT,STMPO «COMPARE THE BITS 
001414 BEQ a} *BR IF OK 
01 001126 001166 MOV SBDDAT,$ :COPY *BAD DATA’ 
042737 071600 001166 BIC 471600 STMP4 i CLEAR THE MASKED BITS 
053737 OO1166 001124 BIS STMP4Y,$GODAT  :°OR’ WITH TA FOR TYPEOQUT 
104010 ERROR 10 *REPORT 
137 001236 1. Con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
Sos037 00129% CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
16037 001126 MOV RHCS1(RO),S$BDDAT’ ;GET CONTENTS OF RHCS1 
012737 99090 001122 Hoy SRHCSI $BDAOR ;FORM REGISTER. RODRESS OF ERROR MESSAGE 
TEES 210 001124 MOV 84210, SGDDAT What REGISTER SHO EB ‘ 
013737 OO01126 01156 MOV SBDDAT.STMPO ” ;MOVE REGISTER CONTENTS TO 'STMPO’ 
042737 100000 00115¢ BIC 81C77777,STMPO SAVE SPECIFIED BITS 
023737 001124 001156 CMP SGODAT,STMPO  ;COMPARE THE BITS 
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at QUAL CONTR LER LOGIC TEST - “alt 1 MACY11 27(732) O4-CCT-76 10:31 PAGE 69 
COMMAND SEIZE TEST & SET *VV-A’ 


BEO 66$ ;BR IF OK 
MOV seer» LS Ha ta! ‘8 DATA’ 


BIC TMP4 : CLEAR THE MASKED BITS 
81S $ne4. a’ seobat 7 OR” WITH GOOD DATA FOR TYPEOUT 
ERROR 10 ;REPORT THE E 
B6s aioy EKER SET THE REGISTER COMPARE ERROR INDICATOR 


- REEEERESERLEELELESELRASELE RS LLEAEE RE EE LEAEEAEEEREREEES + EREEEES EES ES 
: issue READIN PRESET COMMAND AND SET FMT22 


MOV #23,RHCSI(RO) ;ISSUE A READIN PRESET 
MOV eFMt22,RHOF(RO)’;SET FMT22 


s SELEFSSARSESERESESSASLSLA ESSE SELARERSLERARLAALLERELALEAALEREEALESALEFSLE 
VERIFY THAT THE DRIVE STATUS IS CORRECT 


Sauce 
00 NICU .£ WIT 
88 
Co 


A 
iv 
7 


3 


005037 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
016037 001126 MOV RHDSI(RO),S$BDDAT’ :GET CONTENTS OF RHOS1 
012737 O01le2 MOV SRHDS1,SBDAOR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
060037 901 ADD ;A00 RHII E ROORESS 
Ole737 011700 001124 MOV #MOL!PGM! DPR! DRY! vv SCOOAT T REGISTER SHOULD BE 
13737 001126 001156 MOV T.STHed : MOVE g ReCiSTER ¢ CONTENTS TO *STMPO’ 
2727 1 001156 BIC 81C71700,STMPD ;SAVE SPECIFIED BITS 
001124 oo11S6 CMP T,STMPO © ;COMPARE THE BITS 
1414 BEQ 67 BR IF OK 
013737 001126 OO1166 MOV T,STMPY COPY *BAD DATA’ 
042737 071 001166 BIC #71700; STMPY CLEAR THE MASKED BITS 
053737 O01166 001124 BIS STMPY,$GDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
104013 ERROR 13 *TYPE MESSAGE 1 
005137 001236 tak CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


ROISI sty 


: 


essed EeasincineiNcih 


e848 
2649 





SarenaeeRe 


o~ 
G) 


NONOOOOORMO000000 


0-6 26-2 b= 6-2 b— b= & = bp -< 2 ho HH 
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e 
4 


8 
~ 
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et ey ry er or 
OoOodoooo 
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NOP 
MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


: e SESELLALESRESSERERASEE ERE SS ALLESZLAREAAELA SSAA LASALLE LALA SLES AALEAERERAAE 
:WAIT FOR TIMEOUT TO RELEASE DRIVE 


18: TST RHDS1 (RO) ;WAIT ae THE PORT TO TIME OUT 
BNE $ WHEN Ma OCCURS 
TST WATCH CHECK THE WA 
BNE 1$ BR IF NOT ZERO 
ERROR 36 NO TIMEOUT WITHIN 2 SECONDS 
JMP 3$ BYPASS ATTN REGISTER CHECK 


: sEEEEESEAE ERLE ELLE A SLESESEREERSERESRRE SEER EES ERRERRALSSHEERERREASELERERS 
SEE IF DRIVE RETURNED TO NEUTRAL 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR ;CLEAR THE "RELEASE ERROR ’ POI 
MOV #RHDS1 , SBDADR ;FORM THE ADDRESS OF peel FOR TYPEOUT 


ADD RO ;ADD THE 170 BASE ADDRESS 
MOV WMOL!PGM!DPR!IDRY,SSDDAT ;COMPARISON CONSTANT 





nO-LL-DEREP-A, RP ReO4 QUAL SONTROLLER LOGIC TEST - PART 1 MACYL1 27(732) O4-CCT-76 10:31 PACE 76 
PORT ‘A’ COMMAND SEIZE TEST & SET "vV-A’ 
2850 O10156 113760 001216 o00010 MUVB _—- PORTA. RHCS2( RO) ;SELECT PORT A 
2851 010164 016037 O00001e OOl11be MOV BHDS1 {RO} sine ;GE ii DRIVE, STATUS REGISTER FROM PORT A 
2952 bigive 13737 001162 001156 MOV STMP2, STMP tet 
2353 O01 2737 100100 001156 BIC SATA'VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
oee4 010206 it 001220 900010 MOVS PORTB,RHCS2(RO) ;S eer ore 
010214 Oo le 001164 MOV RHOS1(RO).$TMP3 :GET THE DRI STATUS REGISTER FROM PORT 8. 
e056 g10e88 013737 164 901169 MOV STMP3, STMP] COPY IT Roe iy , 
1 2737 100100 00116 BIC arma STMP1  :CLEAR PORT DE NOEAT BITS FROM THE COPY 
2858 010236 Oe3737 00115 001160 CMP STMPO, STMP1 :1S THE agnTus REGISTER THE SAME FROM BOTH PORTS 7 
2859 O10044 O01 BNE ‘BR T 
2860 O102% 005737 O01156 TST STMPO i REGISTERS ARE THE SAME: ARE THEY ZERO ? 
286 gi ese 901097 BhE 70$ BR IF NO 
Spee 1 i ERROR 46 REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
TEee OTS ee ee Mees opl12b GBS: MOV —«STRP2,SBDDAT 'SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
Sere tesa MR Bt 001226 MOV PORTB,PTNBR : SEIZING peat Pte EST SHOWS DRIVE NOT IN NEUTRAL 
2865 010276 113760 OO0le20 oo0d10 MOVB § PORTB,RHCSe(RO) ;SELECT PORT B. 
2867 O10304 005737 001156 TST STMPO' iSEE IF St F STATUS EQ 0 FROM PORT A. 
Sees fst Se 1216 001226 i PORTA, PTNBR ;SEIZI PORT F TES DRIVE NOT IN NEUTRAL 
2870 iste 6} steed ppteee MOV STMP3,SBDDAT —; ue "FoR ERECR PYRE Out 
2871 010396 001216 000010 MOVB PORTA, RHCS2(RO) ISELECT POR 
87 01 063166 TST STMP1” : F eoR TUS” EQ ZERO FROM PORT B. 
SNS bites? 177777 Ole 69S: HOY Sc} RELERR LEASE NDICATOR 
. ’ ; 
Save binses | Gpaase ERROR 2 Spe ERROR Hescnce 22 
2876 010352 013737 001162 001126 70%: MOV STMP2, SE00AT LOOK FOR IT FAILURES WHEN RHDS1 READ 
2877 Ol 013737 001216 001226 MOV PORTA; PTNBR 
2878 910366 O4e737 100100 OOll62 BIC #ATA'VV,STMP2 DON’T CHECK ATTN BIT OR WV BIT 
2879 010374 023737 OO11e% OOlibe CMP $GD0A AT, $TmP2 ALL BITS OK ? 
2880 010402 001401 BEQ 71$ BR IF OK FROM PORT A. 
2881 O10404 104007 ERROR 7 T 
2882 O10406 613737 OO1164 001126 718: MOV STMP3, SBDDAT i CHECK RHDS1 FOR BIT FAILURES - FROM PORT 8. 
2883 OLN 913737 001220 001226 MOV ORTB’ PTNSR T R 
2g84 O10422 100100 OO1164 BIC #ATA! VV, STMP3 SOON’ T CHECK ATTN BIT OR VV BIT 
| 2885 O10430 023737 O01le4 001164 CMP SGODAT,$TMP3 § ;SEE IF READ OK FROM PORT B. 
2886 010436 001401 BEQ 72$ BR IF OK 
2287 010440 104007 ERROR 7 : 
| 2888 OloN4e o00240 723: 
| pee9 o1o444 38: 
| coat IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
cogs 010444 105737 001103 TSTB © SERFLG sDID AN ERROR OCCUR ? 
/ eB O104SO 00141 BEQ TSTS 3488 IE NOT 
2895 010452 001000 177570 BIT #51109, SWR ; SEE IF LOOP ON ERROR SET (SWR9=1) 
28% O10460 001406 BEQ TSTS : NOT 
| pB97 Ol0462 105037 001103 ECRB SERFLG CLEAR THE ERROR FLAG 
| 3898 O104eb 005037 001170 UR STINES “CLEAR THE MAX ITERATION COUNT 
| 2899 010472 000177 170412 JSLPERR GO TO THE LOOP ADDRESS 
| 2901 je a a Sa a a a a a a a a ov a a aa 
| 2902 jaTEST S PORT 'B’ COMMAND SEIZE TEST & SET ’VV-B’ 
Sopa i EVERIFY THAT THE DRIVE IS SEIZED WHEN A COMMAND IS ISSUED. SET ’vv’ 
| 2905 FOR THE PORT UNDER TEST. 
i 
































*B’ COMMAND SEIZE TEST & eet 


A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT 'B’. VERIFY THAT THE 
DRIVE WAS SEIZIED BY PORT ’B’ AND THAT THE °GO’ BIT RESET. 


ISSUE A READIN PRESET COMMAND THROUGH PORT 'B’. ‘VERIFY THAT THE 
*VV’ BIT FOR PORT ’B’ WAS SET. 


C. STALL FOR 2 SECONDS THEN VERIFY THAT THE PORT TIMEOUT RELEASED 
THE DRIVE AND THE THE DRIVE RETURNED TO NEUTRAL. 


Pertti itititiiitiiititttiitiiitititittitttitiitititiiitit ttt is 


tsTs 


ee ee ee oe ee at ee ae oe 
ee ee ee 
@ 


5 
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EP oun RE DESIR 


B 1$ BR IF 81 ENTERED usy 
EXEC i te GET NEXT TEST NUMBER 
eb& 158: MOV acl KYBCTL i351 SINGLE TEST INDICATOR 


apes 
‘ 


BE 
Oo 


a 
cs 


< 
5 
8 


I TSTNM 
1 MOV TESTE. $LPADR ; LOAD LOOP ON TEST ADDRESS 
119 MOV TESTS, SLPERR LOAD LOOP ON ERROR ADDRESS 
17 MOV 1, STIMES *:D0 1 ITERATION 


o00-oO 


ich vishal aoe ee 
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DERPPA.P11 TS PORT V-8" 

Be ae te at ae 
| 


e321 END OF *SCOPE’ SETUP - START OF MAIN T 
2933 o10ss2 TESTS: 
2934 910552 113760 001220 o00010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 
2935 O10560 013737 OOle20 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
2337 eae Ge MME re ete ee ee ee 
5330 re 
2940 010565 001244 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
2941 010572 012737 003720 001246 MOV #2000. , WATCH ;SET WATCH TO 2000 MS 
exe O10600 013737 001220 601230 MOV PORTB,SEIZPT  ;*SEIZED’ PORT ADDRESS 
eos : j:eeeteseanepeeetezaaaseeeeeeeeeesassineneeeeeeessasnceeeeeesenas 
Sout a ‘ es 
2947 O10606 012760 000011 coD000 MOV #11,RHCSI1(RO) | ;ISSUE A DRIVE CLEAR 
| pear 33 LEELEBLEL SEEKERS SERRE E LES SEES BE SRE EERE SERS ELE ERS SE EEE SEER ERE ES EE ELES 
| 50 -VERIFY THAT DRIVE SEIZED BY PORT B. 
10614 11 0121 MOVB PORTA, RHCS2(RO T 
| 5305 ee bt3380 BiSte 1 MOV PORTA, PT hove PORT Teporess TO LOCATION FOR TYPEOUT 
Be a ee Ee eR a a 
See Bidens EEG povols 001122 MOV sF ORM R REGISTER ADDRESS GF ERROR MESSAGE 
| sae sees peeos7 tes err ae ; T Regier OLB be 
| 3959 010660 e337 001124 001126 CHP SGDOAT, SBODAT ;15 T 
| esa SST ERROR : 
} 
L 








Ree DUAL NTSB LER LL OGrS ist Tests Pr O4-OCT-76 10:31 PAGE 72 


~ 


- 
¥ 
fu 


ae 
a 
“I 


a 


we E 


OOOO OOOV OO OOOOOOHOOOKBOO0OOKB0O00000000 ~— 


OO 20 +b b— 1 B= b= bh b= Bo he PB = 2 B= 2 Bb — = = pe 
bo Bs 
furu 


S 


é 
is 


3 
: 


te 
a 


3 
ne 
For LVR 


JSndaasoess 
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SeeReee 
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Bae 
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Ba 


SERBERSRR 
Saas 


See FRE! Vs 


RR2ESRS 


CKERR “ sSET THE REGISTER COMPARE ERROR INDICATOR 
PORTB, pHCs2 (RO) SELECT POR 

PORTE, PTNER nove, FOR ese TO LOCATION FOR TYPEOUT 
CKE CHECK ERROR’ INDICATOR 


RHOSL (RD) ssooat’ RHDS 
RHDS1, SBDADR ; FORM qe cl he ERROR MESSAGE 


RO 0, $8D ADD RHLI 
SMOL'PGM!DPRIDRY,SGDDAT ; REGISTER SHOULD BE 
§808T STMPO| —-_ : MOVE realsren Contents TO *$TMPO’ 


ED BITS 
MP4, $GDDAT TOR’ WITH GOOD DATA FOR TYPEOUT 
1 *REPORT THE ERROR 
CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR sCLEAR THE CHECK ERROR’ INDICATOR 

RHCS1(RO) SBDDAT “GET CONTENTS OF RHCS1 

#RHCS sFORM REGISTER ADDRESS OF ERROR MESSAGE 
RH11 RoE ADDR RODRESS 


RO 
#4210. SCDDAT me REGISTER 


Berri ete is SAVE SP Sunn aie TO ’STMPO’ 


BR RIF OK 
SBDDAT , STMPY ;COPY "BAD DATA’ 
877777, STMPY CLEAR THE MASKED BITS 
srip4, SGDDAT St awit GOOD DATA FOR TYPEOUT 
CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


ER HREM EE HEHEHE MEE RHEE HEME EE RHE HEE EEE EE EER REALE REEL EE EEE LEAL EEE 
IN PRESET COMMAND AND SET FMTee 


a 


#23,RHCS1(RO) ;ISSUE A READIN PRESET 
eFMt22, RHOF(RO)’;SET FMT22 


: o SLELARA SERRA ASASELERHSSELREAEESESERA SAA RELA ALARAA LE RL AAA LE RSRELALEESE 
*VERIFY THAT THE DRIVE STATUS IS CORRECT 


e 


o 
8 


BoB GRR TERE CUE RAT ERR ONE RUBBER Ia aoc 


‘ 


S 
s 
S88 S888 g8 
Dee BaD RB 


Beiesiscie 

NOULELCWITU 
S2BR2Z2 

SS8= 


CK CK ERROR® INDICATOR 
Ree (RO) SBD SBDDAT CLEAR COR TENTS “OF RHDS1 
sFORN RE REGIS STER ADDRESS OF ERROR MESSAGE 


iti BASE 
Se ‘opps prvi’ setGn WHET nENTS To SHOULD, BE 
tc 78 STH STMPO af ae Sn ED BIT 
GDDA ,StMPO 


DAT, STMPY : -COPY *BAD DATA’ 
#71700,STMP4Y § $CLEAR THE MASKED BITS 
STMPY,$GDDAT  :°OR’ WITH GOOD DATA FOR TYPEOUT 
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DERPPA.P1L *B’ COMMAND SEIZE TEST & SET 
301 911260 J 104013 ERROR 13 -TYPE MESSAGE 13 
301 1igbe 005137 001236 a con CKERR SET THE RECISTER COMPARE ERROR INDICATOR 
ast pt ise 113760 001216 000010 " MOVB- ~=—s PORTA, RHCS2(RO) ;SELECT PORT A 
see 011266 0613737 OCle16 00:226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
see : © SRAEFSEAAA RSE AARELSERSEESELA LES ARERAELALE LALA ARLHS ES AELAL ELS FERAL FEFEE 
:WAIT FOR TIMEOUT TO RELEASE DRIVE 
Ses GING) PR Omens gr mse gt a IE a 
2029 011302 005/37 001246 TST WATCH i CHECK THe WATCH 
3030 011306 001372 1$ ZERO 
3031 011310 104°36 ERROR 36 *NO TIMEOUT WITHIN 2 SECONDS 
3032 011312 000137 011630 IMP 3$ *BYPASS ATTN REGISTER CHECK 
3034 4 Sif IF DRIVE RETURNED T0 MELTRAL Se 
sae Se 
3037 O11316 2S: 
3 3 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
a 011316 005027 oo12e42 CLR RELERR ;CLEAR THE 'RELEASE ERROR ’ INDICATOR 
ss GLtsss eres ferris ON ROR cane ve wee Seow Fone 
3044 011334 012737 011700 0901124 MOV #MOL!PGM!DPR!IDRY!VV,SGDDAT ;COMPARISON CONSTANT 
3045 O11342 il 001216 oo0010 MOVB PORTA,RHCS2(RO) ;SELECT PORT’A. 
3048 911350 016037 O000ie O01ibe MOV RHOS1(RO).$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
3047 O11356 01 001162 001156 MOV STMP2, STMPO -COPY IT INTO ’STMPO’ 
3048 O11 364 042737 100100 001156 BIC #ATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
2049 011372 113760 001220 o00010 PORTB, RHCS2(RO) j SELEC CT PORT B. 
3050 0: 1400 D1b037 12 OO1164 MOV tRO). STMP3 3GE et THe DRIVE, STAT STATUS REGISTER FROM PORT 8. 
3051 O11406 013737 OO01164 001160 MOV STMP3, STMP1 COPY 
3052 011414 042737 100100 001160 BIC BATAIYY, STMPL ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
3053 Oi 14ee 023737 001156 001160 ch STHPO, StHP1 ; THE ATUS REGISTER THE SAME FROM BOTH PORTS ? 
3055 Oise 005737 001156 TST TMPO ISTE ARE THE SAME: ARE THEY ZERO ? 
ey HIS HEP owas ie" es ee ee nay ob ne cage Ne" Sze 
3059 Bt tau 013737 001162 OOl‘eh 68S: MOV STMP2, SBODAT er POSSIBLE BAD DATA FOR ERROR MESSAGE 
3060 O11454 013737 O0l220 O012c6 MOV PORTB,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3061 O11462 113760 001220 O00010 MOVB § PORTB,RHCS2(RO) ;SELECT PORT B. 
3062 011476 0S 37 001156 ist aad sSEE IF STATUS EQ 0 FROM PORT A. 
ae tiem flee uae mum Yee ces, ing acl REL RSE "Tm nA 
| 3066 O11512 113760 OOlel6 000010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT 
3067 b11520 05737 001160 TST STHPL" SEE IF SraTus EQ ZERO FROM PORT B. 
38 Ot See 016737 177777 OO0l2e42 69S: nov #-1,RELERR Fie "RELEASE ERROR’ apNOICATOR 
Bra flies Glee MBSE paige 7 RY Riese LR PRT CASS wen mos. reo 
| 2073 O115S2 042737 100000 001162 Bic #ATA, ‘Snes ‘DON'T CHECK THE ATTN BIT 
i 
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COMMAND SEIZE TEST & SET ‘V v8 


M 
T 
001162 CMP SGDDAT , STMPe ;ALL BITS OK ? 
gt § :BR ia OK FROM PORT A. 


sRE 
001126 718: MOV ire BODAT CHECK RHDS1 FOR BIT FAILURES - FROM PORT 8. 


001226 MOV PINGR GE 
001164 BIC ‘DON’T CHECK THE ATTN BIT 
001164 cp scoot, STHP3 SEE IF READ OK FROM PORT 8. 
ERROR 7 REPORT ERROR 
728: NOP 
33: 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
STB SERFLG sDID AN ERROR OCCUR ? 
177570 BIT #5109, SUR : SEE iF LOOP ON ERROR SET (SWR9=1) 
CLRB SERFLG tACEAR AR THE ERROR FLAG 
CLR STIMES “CLEAR THE MAX ITERATION COUNT 
IMP JSLPERR GO TO THE LOOP ADDRESS 


hebSab-ba tel dalahalaladahalal-t-b-5-tah babel 5fbatadel Sobabeh deh $-t-dot-t ted Sytal-$-$--tabb-t-delelalalaledadabl 
jHTEST 6 TEST RELEASE, DRIVE SEIZED BY PORT ’A’ 


Se #TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
ii A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RHDS1. 


ty B. ISSUE A RELEASE COMMAND THROUGH PORT’A’. VERIFY THAT THE DRIVE 
i# Re TURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 


: 
Priiiitiiiiiititititiiiitititiiiiitiiiitiiiititiiiiitit tite 


TSTb: 
SC ; INITIALIZE THE SCOPE HANDLER 
TST KYBCTL : PERF ORNING ONLY SINGLE TESTS ? 
Bpe tC it oe Ney 
IMP EXEC URN X NUMBER 
001266 15: MOV #-1, KYBCTL ia T SI Me a xT rere 
00110e 2s: HOVE ab STSTNM ; jTEST N 
ea 
Batty MOV aTeeTp SLPOOR it toe on ERB Rn RbrREes 
001170 MOV #4000. ,STIMES sLBR 4000. ITERATIONS 
$ AND OF SCOPE’ SETUP © START OF MAIN TEST RHRE ER EES 
“END OF ’ SETUP - START OF MAIN TEST 
TESTE: 
. © LESLERERLARAERERSREA RRA RA ALARA SRALA RRA R KERR RAE RARE REE LARAL KARA ARRAEES 
:START THE TIMER 
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DERPPA.P11 TEST RELEASE, DRIVE SEIZED BY PORT ’ 
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a be ee oe 


CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
MOV #2000. , WATCH :SET WATCH TO 2000 MS 


fp RERARRERAAAA REESE SLER ERR EL ELE LEER ELE ER ERL EAE L ASL E EE RELE REE ELLE ERELELEL 


;SEIZE THE DRIVE THROUGH PORT A 


MOVB §PORTA,RHCS2(RO) ;SELECT PORT A 
MOV PORTA. SEIZPT ;STORE SEIZING PORT’S ADDRESS 
CLR RHDS1[RO) sWRITE RHOS1 

MOV PORTB, OPPRT ;OPPOSITE’ PORT ADDRESS 


5 5 RERERRRRALRAE REEL L EE AEAAE LEAL LAF LALEA EERE AA ARERR LRLAEL LEAL LE LE ALALERE 


64S: 


;RELEASE THE DRIVE FROM PORT A 


MOVB  PORTA,RHCS2(RO) ;SELECT PORT 
MOV PORTA’ PTNBR ; MOVE PORT abpeese TO LOCATION FOR TYPEOUT 
MOV #13,RHCSI(RO)’ ;ISSUE RELEASE THROUGH PORT A 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR SORRY THE "RELEASE ERROR ’ INDICATOR 
MOV #RHDS1 , SBDADR THE ADDRESS OF RHDS! FOR TYPEOUT 
ADD RO, SBDADR ; ADD THE 170 BASE ADDRESS 

MOV #MOL !PGM! DPR! DRY! VV ae ehamnaat CONSTANT 


PORTA, RHCS2(RO) ; 

MOV RHDS1(RO). §T SELE i OR Ive, STATUS REGISTER FROM PORT A. 
STMP2, STMPD *COPY I 0 ’STMPO’ 

BIC TALWY, STMPO T DEPENDENT BITS FROM THE COPY 


it 

STNP3, ST iCopy IT INTO °STMP1? 
Bre SATATWY STHPL {CLEAR PORT DEPENDENT BITS FROM THE COPY 

si ‘st iTS THE STATUS REGISTER THE SANE FROM BOTH PORTS ? 
1st —«-STMPO PE GTSTERS ARE THE SANE: ARE THEY ZERO ? 
oNeon Gee i BO PORT DRIVE UTRAL, QR NOT SEIZED 
MP és BYPASS oR EuOT Ne the 
MOV STNP2,SBDDAT SET Up POSSTELE BAD DATA EOR ERRCR MESSAGE 
MOV. PORTB’PTNBR —«:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVE PORTE RHCS2(RO) ; 


CT PORT B. 
F STATUS EQ 0 FROM PORT A. 
SEIZING EORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 
4 FOR ERROR TYPE OUT 
MOVB § PORTA, RHCS2(RO) ;SELEC SGRT ’ 
Ist SIMPL :SEE IF yayrtus EQ ZERO FROM PORT B. 
MOV #-1,RELERR *SET 'RELEASE ERROR’ INDICATOR 
26 :T RROR MESSAGE 26 
STMP2, T LOOK FOR BIT FA S WHEN RHDS1 READ 


MO e 
BIC #ATA, $TMP2 "DON’T CHECK THE ATTN BIT 
CMP SGDDAT,STMP2 § ;ALL BITS OK ? 
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ORT ’ 


67S :BR IF OK FROM PORT A. 
? REPORT ERROR 

STMP3, SBDDAT s CHECK HDS! FO FOR BIT FAILURES - FROM PORT B. 
PORTB’ PTNBR MBER 

#ATA, $TMP3 er T CHECK THE ATTN BIT 
SGDOAT, $TMP3 £ IF AD OK FROM PORT 6. 


? REPORT OE RROR 
—s 3D1D ORIVE RETURN TO NEUTRAL ? 


IF IN NEUTRAL 

s 60 au FOR Rive TO TIMEOUT 
nT. RHCS2(RO) - SELECT 
P PTNBR ;MOVE PORT aborese TO LOCATION FOR TYPEQUT 
REE sCLEAR THE "CHECK ERROR’ INDICATOR 
SEF a0) SBDDAT’ ;GET CONTENTS OF RHDS1 
#RHDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
$BDADR "ADD RHII1 ADDRESS 

jMHAT REGISTER SHOULD BE 
SBDDAT, STMPO MOVE REGISTER CONTENTS TO 'STMPO’ 
#*CATA, STMPO . SAVE SPECIFIED BITS 
SGDDAT,STMPO ° ;COMPARE THE BITS 


6 
SBDDAT , STMP4 COPY *BAD DATA’ 


#ATA, STMPY *CLEAR THE MASKED BITS 

STNPA, SGDDAT j OR” WITH 6000, DATA FOR TYPEOUT 

17 “TYPE MESSAGE 1 

CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


PORTB,RHCS2(RO) ;SELECT POR 


ORTB,PTNBR ; PORT 0 LOCATION FOR TYPEOUT 
PORTE. nove, FOR a OR’ INDICATOR 
RHDS1 (RO) $BDDAT’ ert CONT: OF RHDS1 
SBDADR ;FORM REGISTER. Boprece OF ERROR MESSAGE 

aaree § "3 A00 | 1 BASE RODRESS 

T * WHAT GIS TER SHOUL D BE 
SBDDAT,STMPO = MOVE Reet TER CONTENTS TO *STMPO’ 
BtCATA, STHPO ;SAVE SPECIFIED BITS 
SGDDAT; STMPO Yea THE 


OK 
SBDDAT, STMPY COPY ’ DATA’ 


BATA, STMPY : CLEAR it MASKED BITS 

STHPA, SGDDAT 57 OR” WITH GOOD DATA FOR TYPEOUT 

KERR ioe SET Maat SRECistER COMPARE ERROR INDICATOR 
2 :GO CHECK FOR LOOP ON ERROR 


oS 9 9 9 9 9 EE EE 
ite RELEASE tal A or RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 


PORTB, RHCse(RO) -SELECT PORT B 
PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RHDS1{RO) -WAIT FOR TIMEOUT TO RELEASE DRIVE 
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001103 
001000 


001103 
001170 
166210 
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063720 
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TEST RELEASE, DRIVE SEIZED BY PORT ’A’ 


ue 001246 
001364 


177570 


001246 





LO6b 


N R WHEN DRIVE RELEASED 
BN Rac Check havc on 
o- ERROR 36 NO TIMEOUT WITHIN 2 SECONDS 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB RFLG sDID AN ERROR OCCUR ? 
Beg | PERE DED aH 
BIT 8SWO9, SWR tare tf OOP ON ERROR SET (SWR9=1) 
BEQ TST7 : BR NOT 
CLRB = SERFLG ; CLEAR HE ERROR FLAG 
CLR STIMES : CLEAR TE MAX ITERATION COUNT 
IMP JSLPERR *GO TO THE LOOP ADDRESS 


ag ae ye ee a a pene 
j TEST 7 TEST RELEASE, DRIVE SEIZED BY PORT ’B’ 


TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 


3;# A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RHDS1. 


te B. ISSUE A RELEASE COMMAND THROUGH PORT °B*. VERIFY THAT THE DRIVE 
i Rare TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 


2 RGGGHE HEHE EHEHEIHEHIHEHEHIHI HEE GHEE HEHEHE EE GHEE 


tST?: 
SCOPE s INITIALIZE THE SCOPE HANDLER 
TST KYBCTL s DERE ORNING ONLY SINGLE TESTS ? 
BES I F JUST. ENTERED TEST 
IMP EXEC PRETURN 8 T NEXT Test NUMBER 
1s: MOV #-1. KYBCTL iSET eTNeLe™ TEST INDICATOR 
$: MOVB $TST TEST NUMBER 


#7, $TSTNM 
MOV #TEST7, SLPADR LOAD LOOP ON TEST ADDRESS 
MOV #TEST7,SLPERR  ;LOAD LOOP ON ERROR ADDRESS: - 
MOV #4000.;$TIMES };D0 4000. ITERATIONS 


: AND OF SCOPE? SETUP © START OF PAIN TEST nnREEE 
"END OF SCOPE’ SETUP - START OF MAIN TEST 
TEST?: 


at Ge VOOR ee ee ee ee 


CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
MOV #2000. , WATCH SET WATCH TO 2000 MS 


5 HEA HEHEHE EE EE EEE HEE EEE HE HEE RHEE AEE EE HEHE REESE ERR REE RRR EERE 
;SEIZE THE DRIVE THROUGH PORT B 
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MD-11-DERPP-A, ae DUAL CONTROLLER LOGIC TEST 
Pil T I EIZED BY 


TES 
TEST RELEASE, DRIVE S 


DE 
012766 113760 tgs 000010 MUVB PORTB,RHCS2(RO) ;SELECT PORT B 
012774 013737 220 001230 MOV PORTE Betz ZPT STORE SEIZING PORT’S ADDRESS 
Oi 3008 pO3088 apoote CLR RHDSL UR RHDS1 
1 1373? lel6 O0le32 MOV PORTA, OPPRT OPPOSITE” PORT ADDRESS 


5p ARIE RRR ER RRR EERE EERE EERE REELS BEELER EEE EEE 
;RELEASE THE DRIVE FROM PORT B 


ey | 


013014 113760 001220 op0010 MOVB  PORTB,RHCS2(RO)_ ;SELECT PORT 8 

013022 013737 O01l220 001226 MOV ORTB; MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
$30 013030 612760 000013 o00000 MOV #13, RFICSI(RO)’ s ISSUE RELEASE THROUGH PORT B 
3311 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
3313 013036 37 001242 CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
3314 013042 012737 O00012 oo1122 MOV #RHDS1,S$BDADR  ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
3315 013050 060037 OOlle2 ADD vi HE 1/0 BASE ADDRESS 
3316 613054 012737 911700 001124 MOV #MOL'PGM'DPR!DRY!VV,SGDDAT _;COMPARISON CONSTANT 
3317 013062 113760 001216 OO001 MOVB PORTA, RHCS2(RO) SE ECT PORT’ A. 
3318 013070 016037 000012 OO1i62 MOV RHDSItRO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
3319 013076 013737 001162 O01156 MOV STMP2, STMPO *COPY IT INTO ’STMPO’ 
3320 013104 737 100100 001156 BIC saTR! WV,STMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
3221 Ol3ll2 113760 001220 o00010 MOVB ORTB,RHCS2(RO) : j SELECT PORT B. 
3322 013120 016037 OO000l2 OD1164 MOV Roost LRG) STMP3 ;GET DRIVE STATUS REGISTER FROM PORT B. 
3323 013126 013737 001164 OOl160 MOV STMP3, STMPL ‘Copy IT INTO 'STMP1’ 
3324 013134 042737 100100 001160 BIC BATA'VV,STMP1  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
3325 013142 023737 OO11S6 001160 CMP STMPO, STMP1 IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
3326 013150 001006 BNE bus BR IF_N 
3327 013152 005737 001156 TST STMPO ‘REGISTERS ARE THE SAME: ARE THEY ZERO ? 
3328 013156 001037 BNE 6S :BR IF 
3329 013160 104046 ERROR 46 “REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
3330 013162 000137 013346 IMP 68S *BYPASS THE REST OF THE CHECK 
3331 013166 013737 001162 001126 64S: MOV STMP2,SBDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
3332 013174 013737 001220 001226 MOV PORTS, PTNBR >SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3333 013202 113760 O0le20 o00010 MOVB § PORTB; RHCS2(RO) ; SELECT PORT B. 
3334 013210 005737 OO11S6 TST STMPO’ *SEE IF STATUS EQ O FROM PORT A. 
3335 13214 001414 BEQ 65S iB 
3336 013016 013737 001216 001226 MOV PORTA, PTNBR EIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3337 013224 013737 001164 O011c6 MOV STMP3,$BODAT _ ;*BAD DATA’ FOR ERROR TYPE OUT 
3338 013232 113760 001216 000010 MOVB PORTA; RHCS2(RO) :SELECT PORT A 
3339 013240 737 001160 TST STMP1° *SEE IF STATUS EQ ZERO FROM PORT 8. 
3340 013244 001004 BNE 66$ ;BR IF NOT 
3241 OL 3e4e 012737 177777 OOle42 653: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
3342 01 104026 ERROR 26 ‘TYPE ERROR MESSAGE 26 
3343 013256 . 013737 001162 001126 66%: MOV STMP2, SBDDAT ; LOOK FOR BIT FAILURES WHEN RHDS1 READ 
3344 013264 013737 OO01216 O0l226 MOV PORTA’ PTNBR POR 
3345 013072 042737 100000 O01i6e BIC #ATA, $TMP2 DON’ T CHECK THE ATTN BIT n 
3346 013300 023737 001124 001162 CMP $GDDAT, STMP2 sALL " 
3347 013306 001401 BEQ g7 BR I or FROR PORT A. ef 
3348 013310 104007 ERROR REPORT ERR 
3349 Oi 3312 1373? 001168 001126 67%: MOV STHP3, $BDDAT CHECK RHDS1 FOR BIT FAILURES - FROM PORT 8. 
3350 O01 12737 001220 001226 MOV PORTB; PTNBR ; CHANGE PO y NUMBE 
3351 013326 042737 100000 001164 BIC #ATA, $TMP3 “DON’T CHECK THE ATTN BIT 
3355 013334 023737 001124 OO1164 CMP SCODAT. STHPS : SEE IF reno OK FROM PORT B. 
3353 013342 001401 BEQ 68$ :BR IF 
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7 ;REPORT ERROR 

RELERR BR DRIVE RETURN TO NEUTRAL ” 
+6 R IF iN NEUTRAL 

1$ G0 WAI pes DRIVE TO TIMEOUT 
siodl RHCS2(RO) preheat ORT 


; 8 
TB; PTNBR Ovi EE + ADDRESS TO LOCATION FOR TYPEOUT 
CKERR vELED oR THE ’ CHECK ERROR” INDICATOR 
RHDS1 (RO) SBDDAT’ “GET CONTENTS OF R 
#RHDS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.$ RH11 BASE ADDRESS 


0, $BDADR “3A00 A 
hDaAT s HHA REGISTER SHOULD BE 
SBDDAT, STMPO MOV E REGISTER CONTENTS TO 'STMPO’ 
#tCATA, STMPO SAVE SPECI FIED BITS 
$GDDAT,S$TMPO ° ;COMPARE T 


SB0DAT, STNPY ; COPY *BAD DATA’ 


aT A, STMPY *CLEAR THE MASKED BITS 
MP4,$GDDAT  ;'OR’ WITH GOOD DATA FOR TYPEOUT 
*TYPE MESSAGE 17 
CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA, BINBR Sh ;SELECT PORT A 
PORTA,PTNBR ;MOVE PORT + gece TO LOCATION FOR TYPEOUT 


KERR ;CLEBR K ERROR’ INDICATOR 
RHDS1 (RO) sooner T CONTENT RH 
#RHDS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR "3A0 RH11 BASE ADDR 

bDAT SHAT REGISTER SHOUL 
SBDDAT,STMPO = _:MOVE REGISTER CONTENTS TO 'STMPO’ 
#*CATA, STMPO ;SAVE. SP SP ECIFIED BITS 
SGDDAT,S$TMPO ° ;COMPARE THE BITS 
7 BR IF OK 


SBDDAT,STMPY COPY *BAD DATA’ 


#ATA, STMPY *CLEAR THE MASKED BITS 

STNP4, SGDDAT + Oe WITH GOOD DATA FOR TYPEOUT 

CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
2s ;GO CHECK FOR LOOP ON ERROR 





wR IESE REISE SEHR IEHESEEEEHE EE ESE E HES EHE MER HE HE EHE HE EE HE EE ER E EH EEREEEK 
ite RELEASE COE pron’ T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 





PORTA, RHCS2(RO) :SELECT PORT 
PORTA, PTNBR sMOVE at eDpRESS TO LOCATION FOR TYPEOUT 
HOS1{RO) WAIT FOR TIMEOUT TO RELEASE DRIVE 

;BR CK THE Wat VE RELEASED 


es 
WATCH 
1$ 
36 
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| DERPEA.F 2: TES) RELERSES SBTvE SEIZED "Sy Sort 3° 
3410 
3411 023664 105737 001103 TST 3 SERF ;D1D @N ERROR OCCUR ” 
B12 013870 OOl41E BEQ=Ss«éTST10 :;8R IF NOT 
S13 gtabre Geers? 901000 177570 BIT  #5w09,SwR ;SEE IF LOOP ON ERROR SET (SWR9=1) 
4 Os 1406 BEO =o TST190 BR IF NOT 
R415 13702 105037 00110 CLRE = S$ERFLG ;CLEAR THE ERROR F . 
SHE Gt270e DosCa” 01:7 “CRs STIMES SCLEAR THE MAX ITERATION COUNT 
sii, Olsric oi7? iéSi72 INP = ASLPERR G0 TO THE LOOP ADDRESS 
at 5 PLSSRELSAESFLESESSSAELSLLERSLEFSAFLELSLLSLFLELELELELELLSFLSFLAFLES 
sel 5 TEST 10 TEST RELEASE THROUGH PORT ‘A’, DRIVE IN NEUTRAL 
< 
se isTESt OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
| Saas i A. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’ WITH THE DRIVE IN 
— i NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
| Hee 013716 jeteestasansssaeensanesssseesnensosanennaeseaneneananeatasens 
$350 013716 9000s SCOPE sINITIALIZE THE SCOPE HANDLER 
3431 013720 005737 001266 TST —«KYBCTL PERFORMING ONLY SINGLE TESTS ? 
S13 013724 O00 BEd :BR IF NOT 
| 9433 013726 iddode 1$ :BR_IF JUST ENTERED TEST 
| Ba 013730 00137 oped IMP RETURN & GET NEXT TEST NUMBER 
| M35 013734 012737 1 001266 18: MOV = 81, KYBCTL :SET SINGLE TEST INDICATOR 
| 3438 Dlsrae 116737 10 O91102 2S: MOVE 810, STSTINN TEST NUMBER 
| Hz Bisren O1S7a7 Gia77e OO11De MOV  aTEST:0,S$LPADR ;LOAD LOOP ON TEST ADDRESS 
| -HBB DisrSe Olers? Ola77e 01119 MOV §- STESTIO.SLPERR :LOAD LOOP ON ERROR ADDRESS 
| 3439 -O1g764 012737 000144 0011 mov 8100.,StImeS 3500 100. ITERATIONS 
| 244 
Sa43 Fhch-lab-t-tal-b-4-4-4-4-4rlel-$-h-to-lalalah-b-5-t-5-tal-+-laled-4-Selel 5-5-5 ialalaledalalalelalelalelaleleleielalelsleieielsieleleleieie 
B43 SEND OF *SCOPE’ SETUP - START OF MAIN TEST 
| See on TEST10: 
| ge Ob 113760 001216 COO010 MOVE PORTA, RHCS2(RO) :SELECT PORT A 
7 014900 013737 OOl216 001226 MOV PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| SHB O14006 013757 OOlele 001230 MOV - PORTA; SEIZPT ' ;ADOR OF PORT WHICH WILL ISSUE RELEASE 
3450 5, RERERELERELESELLLAALELAERES LALALALELLE SESE LLLLARERAAAAALALLLERE TL FAELE 
or! TESSUE A RELEASE COMMAND 
| ze 014014 012760 000013 900000 MOV -#13,RHCSI(RO) ISSUE A RELEASE COMMAND 
3455 5p PERESSRELAE LALA SELLA LLLLLELLLARLLLASLLLAELALEAAALALLEALLALELALERELELAS 
/ 3458 VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
| 3yéB 
| BuS9 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
es 14022 005037 o0124 CLR LERR ;CLEAR_THE 'RELEASE ERROR ’ INDICATOR 
| gabe Bi4Dee 16737 Bo0018 01122 Sov RABEL, SBOADR ; SRN THE ADRESS OF ROS! FOR TYPEOUT 
014034 001122 ROD ; 800 THE 1/0 BASE. ADIESS 
| 464 014040 012737 011700 001124 HOV.  sMOLIPGMTDPREDRYIVV, ScDDAT. )GOMPARISON CONSTANT 
2465 O1HO4E 113760 001216 O000i0 MOVE PORTA, RHCS2(RO) ;SELECT PORT 


ee ee ee - - em ee eee 
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MD=11-DERPP-A, RPO DUAL CONTROLLER LOGIC TEST - PART 1 MACYL1 27(732) O4-OCT-76 10:31 PAGE 81 
DERPPA. P11 T1O . TEST RELEASE THROUGH PORT ‘A’, DRIVE IN NEUTRAL 
3466 O14054 016037 000012 O01162 MOV RHDS1(RO),STMPe: ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
3467 014062 gi 737 OOllée OOLISE MOV STMP2, STMPO :COPY IT INTO '$TMPO" 
14070 SSe73s7 100100 001156 BIC ATA'VV,STMPO  :CLEAR PORT DEPENDENT SITS FROM THE COPY 
§ 914976 113780 OO01l220 oo0010 MOVB  PORTB,RHCS2(RO) :SELECT PORT 6. 
70 14104 18037 le 01164 MOV BHOSL (RO) $TMP3 GET T ORIVE STATUS REGISTER FROM PORT B. 
3471 O24112 613737 OO1164 OO!160 MOV ST :COPY IT INTO 'STMPL’ 
472 014120 942737 100100 001160 gic SATA'VV,STMPL :CLEAR PORT DEPENDENT BITS FROM THE COPY 
3473 Ol4le6 023737 001156 OO01160 CMP STMPO, STMPL 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 7 
3474 014134 001006 BNE i$ :BR IF NOT 
3475 014136 905737 OO11S6 TST $TMPO "REGISTERS ARE THE SAME: ARE THEY ZERO ? 
3476 O14142 001037 6S :BR IF NOT 
3477 S14144 1045946 ERROR 46 “REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
3478 014148 000137 014332 INP 68S “BYPASS THE REST OF THE 
3479 014152 013727 DO11b¢ 001126 $4$: MOV STMP2,S$B80DAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
3480 O14169 013737 O01 001226 V PORTS, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3481 O14i66 113780 O0le20 000010 OVB = PORTB;RHCS2(RO) SELECT PORT B. 
3482 014175 605737 OO11S6 TST STMPO :SEE IF STATUS EQ O FROM PORT A. 
3483 014 oi 4 BEQ 65S :BR IF ZERO 
3484 O14 ia3a7 901216 001226 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3485 014219 013737 001164 001126 MOV TMP3; :*BAD DATA’ FOR ERROR TYPE OUT 
3486 O14216 113760 901216 SO00I0 MOVB PORTA, RHCS2(RO) ;SELECT PORT A. 
3487 014224 005737 001160 TST STMP] *SEE IF STATUS EQ ZERO FROM PORT B. 
3488 014230 001004 BNE 5 :BR IF NOT 
| 3489 Gl4232 012727 177777 OOl242 6S$: MOV #-1,RELERR *SET "RELEASE ERROR’ INDICATOR 
| 3480 O14540 104030 ERROR 30 ‘TYPE ERROR MESSAGE 30 
3481 O14242 013737 001162 O01126 668: MOV STMP2,SBDDAT :LOOK FOR BIT FAILURES WHEN RHDSI READ 
3492 014250 013737 001216 O0lect MOV PORTA; PTNBR ; CHANGE PORT 
3493 014256 042737 100900 fOll6e BIC SATA, $T ’DON’T CHECK THE ATTN GIT 
| S49 214264 001124 O01162 CMP SGDDAT, $ “ALL BITS OK ? 
349S 014272 001401 BEQ 67s *BR IF Ok FROM PORT A 
| 496 O14e74 1 ERROR SREPORT ERROR 
| 3497 O14e76 013737 001164 001126 678: MoV STMP3,SBDDAT § :CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
3138 14304 O01 001220 O0lec6 MOV PT SCHANGE PORT R 
| 3499 O14312 042737 100000 OO1!64 BIC SATA, STMP :DON’T CHECK THE ATTN BIT 
; 3500 014320 023737 O01124 O01164 CMP $GODAT,STMP3 §:SEE IF READ OK FROM PORT 8. 
| 3501 014306 001491 BEG 68S BR IF 
| 3502 014330 104007 ERROR 7 ‘REPORT ERROR 
| 203 014332 o00240 68S: NOP 
| 3605 - IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
| aod 014334 1 001103 TSTB © SERFLG ;DID AN ERROR OCCUR ? 
| 3608 814340 00141 9 TST1l *-BR IF NOT 
| 3503 O42 032737 001000 177570 IT é CEE IF LOOP ON ERROR SET (SWR9=1) 
/ 3510 O143S0 601406 BEQ ob gamer >:BR IF NO 
| 3511 014352 1 001103 CLRB = SERFLG :CLEAR THE ERROR FLAG 
| ie 143256 905037 001170 CLR STIMES *CLEQR THE MAX ITERATION COUNT 
#13 i4262 000177 i64S2e IMP USLPERR *GO TO THE LOOP ADDRESS 
| 315 ; LLEEEALLLLLEASLAALE LLL LELATALALAE LAE LLASEAARLA ELA RALE LAA ALLL ELE 
| #16 gaTEST ll TEST RELEASE THROUGH PORT ’B’, DRIVE IN NEUTRAL 
#18 jaTEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
| 3520 *# A. ISSUE A RELEASE COMMAND THROUGH PORT ’B’ WITH THE DRIVE IN 
_ ‘el + NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 





_ —-— 











DERPPA.P1) Thi TEST RELEASE THROUGH PORT '8’, DRIVE IN NEUTRAL 
3522 :# 
323 =< SESPEFEPELRRSSSAALSEESSELESAS SRE LASASLA LASSER SFRLALSLEFRSLFSAF FSS 
3524 014366 tSTLI1: 
3525 hy SCOPE sINITIALIZE THE SCOPE HANDLER 
142 7 OC12E6' TST KYBCTL "PERFORMING ONLY SINGLE TESTS ” 
3527 014374 001406 BEG 2s :BR IF NOT 
3528 014378 490008 SPL 1$ *BR IF JUST ENTERED TEST 
1 137 002410 JMP EXEC *RETURN & GET NEXT TEST NUMBER 
3520 O14404 Cer? 1 001266 13: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
3531 O14412 112737 O01iSe 23: MOVB  &11/S$TSTNM : TEST NUMBER 
3532 014425 Ole7s7 O1444e O81: MOV STEST11,$LPADR LOAD LOOP ON TEST ADDRESS 
3533 O14426 le737 614442 901110 MOV STESTII.SLPERR :LOAD LOOP ON ERROR ADDRESS 
3534 014434 O12737 000 001170 MOV #100.,$TIMES | :;00 100. ITERATIONS 
2 sz SELLFFFE PERF THESE LLLEDSEESFFLS LFS RSELEE ES . ce ERFEREESZEFEESELPE RE FLE EES SAFE 
*END OF *SCOPE’ SETUP - START OF MAIN :eST 
28 = o14s4z TESTLI: 
3540 O14442 113760 001220 000010 MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
3541 014450 013737 O01220 o0le26 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
sie 014456 0613737 901220 601230 MOV PORTB,SEIZPT ’ ;ADDR OF PORT WHICH WILL ISSUE RELEASE 
3S44 2s SLELERESESAEFESKERELESESLLELALSLAASRS LA ELAAAALAESEEELEL EE SLALE LE KE ELLELE 
4 > $SSUE A RELEASE COMMAND 
Ey DL4464 012760 000013 900000 MOV #13,RHCSI(RO)  ;ISSUE A RELEASE COMMAND 


3S49 ss RESESESEAESLLE SEALS LAALE SSSA SALA LALARLLE LL AAL ALS A ALAS RAELLLELELELE 


355 :VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

3652 

3653 sVERIFY THAT THE DRIVE IS IN NEUTRAL 

322: 014472 005037 go1242 CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 

Seey Oiacos penes? polize CONSE AOD ORD SEOADR tAOD THE I/O-BRGE AODRESE. Cot TYPEOUT 
3558 914510 O1e737 nites 001124 MOV 'PGM! DPR! DRY! VV sCOMPARISON CONSTANT 

2659 014516 11 001216 O000I0 MOVB PORTA, RHCS2(RO) ;SELECT PORT'A. 

3560 014524 O1b037 000012 O0116e MOV RHDSICRO),STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
3561 914532 Ot 0011 001156 MOV STMP2, STMPO sCOPY IT INTO ’STMPO’ 

3562 014540 042737 100100 001156 BIC BATA'VV,STMPO CLEAR FORT DEPENDENT BITS FROM THE COPY 
3563 O14546 113760 001220 000010 MOVB  PORTB.RHCS2(RO) ;SELECT : 

3564 014554 016037 O000l2 001164 MOV RHDS1(RO),STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
3565 Ost O17 OC1i64 O01160 MOV TMP3, STMP1 :COPY IT INTO *STMP1’ 

3566 014570 04 100100 001160 BIC BATA'YV.STMPL :CLEAR PORT NDENT BITS FROM THE COPY 
3567 b14576 023737 001156 001160 ci STHPO, StHPL : Is THE TATUS REGISTER THE SAME FROM SOTH PORTS ? 
sep ae: Rae 005737 001156 TST SHPO ele Not ARE THE SAME: ARE THEY ZERO ? 
= Biveie 000137 O1S002 cP bes SPORT DRIVE WOT IN NEUTAR, OR NOT SEIZED 
3573 Olybce ie O11 001126 64S: MOV STMP2, SBODAT HET uP POSSIBLE BAD DATA FOR ERROR MESSAGE 
sere Bluese [13760 001200 O000I0 ve PORTO RNCES(RO) SEELECT PORT Boe coe eS DRIVE NOT ZN NEUTRAL 
3676 O14644 005737 OO1I56 TST STMPO’ SEE IF STATUS EQ O FROM PORT A. 

2577 014650 001414 BE 65S “BR IF ZERO 
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TEST RELEASE THROUGH PORT 'B’, DRIVE IN NEUTRA 


1216 MOV PORTA, PTNBR NG_PORT IF _TEST SHOW VE NOT IN NELTR 
pi 3730 Mt é pp iece ) OR NB sSEIZI G PORT IF TEST SHOWS DRIVE IN NEUTRAL 





1164 MOV STMP3,SBDDAT ;?BAD DATA for ERROR TYPE OUT 
0 pole 000010 MOVE PORTA, RHCS2(RO) ; sett 
° BO11 Ist sTHPl E IF st eR Tue” EQ ZERO FROM PORT 8. 
012737 177777 OOle42 65$: MOV #-1,RELERR iSET RELEASE ERROR’ INDICATOR 
1 ERROR 30 - TYPE ERROR MESS 
13737 001162 001126 GES: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RHDS1 READ 
1 901216 901226 MOV PORTA’ PTNBR ‘CHANGE PORT R 
042737 100000 001162 BIC = sATA,. $TMPe sDON'T CHECK THE ATTN BIT 
02 001124 O01162 CMP SGDDAT, STHP L BITS 
4 3 BEQ 675 BR IF OK Ron PORT A. 
007 ERROR 7 ‘REPORT ERROR 
1 001164 001126 67$: MOV STMP3, SBODAT ; CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
O13 37 001220 bo1ee6 MOV ORTB; PTNBR T 
100090 OO01164 BIC sATA, $TMP3 t6ON’ T CHECK THE REIN BIT 
023737 001124 OO1164 CMP SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT B. 
001401 BEQ 585 BR IF OK 
104007 ERROR 7 REPORT ERROR 
000240 68$: NOP 
;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
m0 015004 105727 001103 TSTB SERFLG ;DID AN ERROR OCCUR ? 
3602 015010 O014l2 BEQ TSTle : F 
3603 015012 37 001000 177570 BIT #SW09, SWR ‘dee IF LOOP ON ERROR SET (SWR9=1) 
304 015020 4 BEO IsTle : BR i NOT 
l 1 001103 CLRB = SERFLG 3b HE ERROR FLAG 
3606 915026 005037 001170 CLR STIMES * CLEAR TE MAX ITERATION COUNT 
3507 015032 000177 1640Se IMP JSLPERR >GO TO THE LOOP ADDRESS 
at 5 RELALLALERELALLSLELELALLLLLLLLELERALA RELL LERALE LE RELL LARA LELEES 
3511 jaTEST 12 TEST THAT 'CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’A’ 
3613 S SVERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
14 is PORT TO RELEASE THE DRIVE. 
sie ?# A. SEIZE THE DRIVE BY WRITING 0’S INTO. RHOS1 THROUGH PORT ’A’. 
| 3617 i VERIFY THAT THE DRIVE HAS BEEN SEIZE 
** 8B. a H PORT A’ VERIFY THAT THE DRIVE 
2 BRE SML tobe 
322 *# C. A MASSBUS THROUGH THE RH11 AND VERIFY THAT THE DRIVE 
3623 ii bees” NOT RETURN cL Tap 
35e *# OD. RELEASE THE DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
3626 ii RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
3628 } SESE EEY ERE EERE REKEKERRELABF LE REREERER ELE EK ELRSE RSS RERRELE ASR ESE 
| 3629 015036 tsTie: 
3630 015036 onc004 SCOPE s INITIALIZE THE SCOPE HANDLER 
| 3631 O15040 005737 oD12ce ST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
| 3632 O15044 001406 BEG 2s *BR IF NOT 
| 3633 015046 100002 BPL 1$ BR IF JUST ENTERED TEST 
| 
| 
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Tle TEST THAT "CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ° 


000137 og2410 JMP EXEC sRETURN & GET NEXT TEST NUMBER 
012737? 177777 OO1266 1S: MOV et, KYBCTL SEI SINGLE TEST INDICATOR 
112737 001102 2: MOVB = #12/ STSTNM T NU 
012737 O1S11e 001106 MOV sTESTi3, SLPADR EBD LOOP ON TEST ADDRESS 
0127 15116 001119 MOV are sila, SUPER ‘LOAD LOOP RROR ADDRESS 
012737 64 11 MOV $ D0 4000. tc TIONS 
H = SESKEREKELESESALA SS KLLASRARLSSLAAAAA REA LELAARLAL KELL EELS LAFF AAELELELFLEE 
?END OF *SCOPE’ SETUP - START OF MAIN TEST 
TEST12: 
5p RERAARARLAELLEA LALA LEL ER LEA ALLL ELA LALLA RARER EL ALE RELLLA EERE LAE ELLLES 
;SEIZE THE DRIVE THROUGH PORT A 
113760 001216 000010 MOVB  PORTA,RHCS2(RO) ;SELECT PORT A 
013737 901 iS 001230 MOV PORTA.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
1 CLR RHDS1(RO) sWRITE RHDS1 
113760 001220 o00010 MOVB  PORTB,RHCS2(RO) ';SELECT PORT 
1 001220 001226 MOV PORTB, s MOVE T ADDRESS TO LOCATION FOR TYPEOUT 
013737 O0l220 O0le32 MOV PORTB. OPPRT TOPPOSITE’ PORT 
016037 OO00le 001126 MOV RHOS1(RO), SBDDAT’ -SEE IF DRIVE SEIZED BY PORT A 
010037 001122 MOV RO, SBDADR sRH11 BASE ADDRESS 
062737 OO000l2 001122 ADD SRHDS1,SBDADR GENERATE BAD REGISTER ADDRESS 
001124 CLR SGDDAT ?REGISTER SHOULD BE ZERO 
11e4% 001126 CMP SGDDAT,SBDDAT 31S THE REGISTER ZERO 
1403 BEQ +1 *BR IF IT IS 
104004 ERROR "REPORT THE ERROR 
000137 016406 IMP 1S *BYPASS REST OF THE SUBTEST 
113760 001216 000010 MOVB PORTA,RHCS2(RO) ':SELECT PORT A Fe 
013737 O01216 O0l226 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 4 \ 
016037 S006 001126 MOV RHOSItRO). SBODAT SEE IF SEIZING PORT SEES CORRECT STATUS 
12737 Oll 001124 MOV ReOrt pent OPE DRY! VW SGODAT ;EXPECTED STATUS 
013737 001124 001160 MOV SGDDAT,STMP1 ;USE G00D DATA’AS A MASK 
005137 001160 COM TMP 1 ;COMPLEMENT THE EXPECTED STATUS 
Mee 001126 001156 MOV SBDDAT $THPO >SAVE THE ACTUAL STATUS 
043737 O01160 001156 BIC STMP1. $TMPO *CLEAR UNWANTED BITS 
001124 001156 CMP SGDDAT|STMPO ARE THE EXPECTED STATUS BITS SET ? 


023737 
794008 ERRORS" yeas 


$ ce abet Gane Met RE 
: DRIVE THROUGH PORT A FIRST 


012760 000011 oo0000 MOV #11,RHCS1(RO) | ;ISSUE DRIVE CLEAR THROUGH PORT A 
. o SLEAAERESERELAAAASSRRKLA KS RERESRARRAAAAAARRARAKARAA RRL LAALARERE LAER ELELE 
VERIFY THAT DRIVE STILL SEIZED BY PORT A 

113760 001220 000010 MOVB PORTB,RHCS2(RO) ;SELECT PORT B 

013737 bo1e60 001226 MOV PORTE,  PTNBR sHOVE ay RESS TO LOCATION FOR TYPEOUT 

001 CLR CKE LEB T CK ERROR’ INDICATOR 
1 000012 001126 MOV RHDS1 (RO) SBDDAT’ * CONTENT S OF RHDS1 
012737 O0000le OOllee MOV 1, SBOADR Trokte REGISTER ADDRESS OF ERROR MESSAGE 








ae EST FRRY CLEARY OBES iio 
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hhspeaeeRe 
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Se eNSSR SE SOAR 


OOOO OOOOOOOOOOO0O00000000000 
se ee ee ee ee 


SESE RRERRE 
WONT UT CWHO 
Page wuaees 
S88 S888 88 8 
See any BR 
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SGOGeT <° HAMRT REGISTER SHOULD. BE 


SBDDAT. STMPO REGISTER CONTENTS TO 'STMPO’ 
#1077777, STMPO ee phe Tne Blt BITS 
SGDDAT, STMPO 


4 
SBDDAT, STMPY :eopy + BAD DATA’ 

877777.S1MP4Y CLEAR THE MASKED BITS 

STMP4,$GDDAT  ;'OR’ WITH GOOD DATA FOR TYPEOUT 

3 TYPE MESSAGE 33 

CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA,RHCS2(RO) ;SELECT PORT 
PORTA,PTNBR ;MOVE PORT appRese TO LOCATION FOR TYPEOUT 
CKERR’ sCLEAR THE ’CHECK ERROR’ INDICATOR 
RHOS1 (RO) SBODAT’ ;GET CONTENTS OF RHDS1 

1, SBOADR sFORM REG ISTER ADRESS OF ERROR MESSAGE 


Ros 11 BASE 
oh ae VV, S$GDDAT -WHAT REGISTER SHOULD BE 
SBDDAT,STMPO ;MOVE REGISTER CONTENTS TO *STMPO’ 
81C77777,STMPO ;SAVE SPECIFIED BITS 

SGDDAT, StNPO *COMPARE THE BITS 


;BR IF 
SBDDAT,STMPY  :COPY "BAD DATA’ 
#77777, STMP4 sSLERR THe MASKED BITS 
STMP4, $GDDAT WITH GOOD DATA FOR TYPEOUT 
te MESSAGE 33 
CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 


$ Meee ee eee 
:NOW ISSUE MASSBUS INIT 


#CLR,RHCS2(RO) ;ISSUE MASSBUS INIT 


KEELES KAL EXEL AKER HEEL ELE RELA LE LE LLS LA LAE AERE LAA HH KE KA LAE KELLER ELK ALELE 
? AONF IRM THAT DRIVE STILL SEIZED BY PORT A 
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ee ed a el ood 
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PORT »RaC (RO) LECT PORT B 
PORTB, ; move ORT ADDRESS TO LOCATION FOR TYPEOUT 
ECERR’ sCLEAR THE ’CHECK ERROR’ INDICATOR 
RHDSI(RO),SBDDAT’ :GET CONTENTS OF RHDS1 

#RHDS1, SBDADR Fore Rall ADRESS _OF ERROR MESSAGE 


So I BE 
T we REGISTER VENTS TO *STMPO’ 


permetno ice Selina 
soso, stMPo Sonate THe Bae 
SepDAT, STMPY  ; COPY *BAD DATA’ 
877777,S1MP4Y  ;CLEAR THE MASKED BITS 
STMP4, SGDDAT 5° OR? WITH GOOD DATA FOR TYPEOUT 
“TYPE MESSAGE 34 
CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA,RHCS2(RO) ;SELECT PORT A 


Gd 
<£ 
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Pll TEST THAT 'CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ’ 
aH 015720 013737 001216 001226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3747 015726 001236 CLR CKERR’ CLEAR THE 'CHECK ERROR’ INDICATOR 
3748 He 16037 O000i2 001126 MOV RHDSI(RO),SBDDAT’ :GET CONTENT RHDS1 
3749 01 012737 O000le OOli2e MOV BRHDSL SBOADR ;FORM REGISTER ADLRESS OF ERROR MESSAGE 
$790 b1a7H6 ol ADD nbctBone ;ADD RH Hid BASE 2 RODRE Ss 

1 Ol 1 il 001124 MOV art M! DPR! ORY! W.SGDOAT :WHAT REGISTER SHOULD BE 
3752 015760 913737 001126 001156 MOV STMPO MOVE RECISTER CONTENTS TO *STMPO’ 
3753 015766 042737 100000 001156 BIC tore STMPO ‘COVE SPECIFIED BITS 
3754 015774 023737 001124 001156 CMP se50AT, Stipa : COMPARE cir i S 
3755 016002 OO1414 BEQ 675 
375 O16004 013737 001126 001166 MOV SBDDAT,STMPY  ;COPY ’ ’ 
3757 O160l2 042737 001165 BIC #77777,$TMP4 CLEAR THE MASKED BI 
3758 016020 001166 001124 IS , $609 ’OR’ WITH GOOD DATA FOR TYPEOUT 
3759 016026 104034 ERROR : TYPE MESSAGE 34 
3760 016030 005137 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
361 1 67S: 
3763 ;RELEASE THE DRIVE FROM PORT A 
37685 016036 113760 001216 OO0C10 MOVB —- PORTA, RHCS2(RO) -SELECT PORT 
3766 O1E044 013737 OOlel6 OOlec6 MOV PORTA, P TNBR ;MOVE PORT apseese TO LOCATION FOR TYPEOUT 
367 O160S2 012760 C00013 0000 MOV 3,RHCSI(RO)” ;ISSUE RELEASE THROUGH PORT 
3769 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
35 ? 016060 005037 o01242 CLR RELERR ;CLEAR THE "RELEASE ERROR ’ INDICATOR 
3772 016064 012737 OO0O00le 001122 MOV #RHDS1,SBDADR ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
3773 016072 O01 1¢8 ADD GADD THE 1/0 BASE ADDRESS 
3774 916076 poo O11 001124 MOV sNOL'PGM! DPR! DRY! vv sco0A ;COMPARISON CONSTANT 
| 3775 O16104 113760 001216 10 MOVB PORTA, RHCS2(RO) sSELECT PORT’ A. 
3776 Oibiie 016037 g00012 001162 MOV RHOSI(RO).STMP2 ; THE DRIVE STATUS REGISTER FROM PORT A. 
3777 0161 13737 001162 001156 MOV StHe THba COPY I 0 *STMPO’ 
3778 Olble6 042737 100199 001156 BIC rare. STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
3779 016134 413760 001 000010 MOVB § PORTB,RACS2(RO) :SELECT PORT 
| 3780 016142 016037 O000le 001164 MOV RHDS1(RO),$TMP3 :GET THE DRIVE. STATUS REGISTER FROM PORT B. 
3781 O16150 013737 OO1164 001160 MOV STMP3, STMPL :COPY IT INTO ’S$TMP1’ 
3782 016156 042737 160100 001160 BIC #ATA'VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
3783 O1bi64 001156 001160 CMP TMPO, STMP1 iis THE ygynTus REGISTER THE SAME FROM BOTH PORTS ? 
3784 O16] 1 BNE : T 
3785 016174 005737 001156 TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
378b O1¢00 001045 BNE 70$ *BR IF NOT 
O1 104046 ERROR 46 * REPORT DRIVE. NOT oat PMEUTRAL OR NOT SEIZED 
| 3788 bibeps 000137 016404 IMP a ss I 
| 3789 O16210 013737 O01162 001126 68S: MOV 2, SBDDAT a BYERS SHBEE geo DATA FOR ERROR MESSAGE 
| 3790 Ol6216 013737 001220 O012e26 MOV PORTB,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3791 016224 113760 001 000010 MOVB PORTE, "RHCS2(RO) ;SELECT PORT iE 
3792 Olbese 0011 TST SEE IF STATUS EQ O FROM PORT A. 
| 3793 01 001414 9g :BR IF ZERO 
| 3794 0162040 O1 001216 001226 MOV PORTA, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 3745 O16e46 O01 001164 O01i26 MOV STMP3, SBDDAT DATA’ Wor ERROR TYPE OUT 
| 3796 016254 113760 001216 CO00i0 MOVB PORTA; RHCS2(RO) Boe PORT A. 
| 3797 Olbeb2 005737 OO1160 TST STMP ; SEE IF STATUS EQ ZERO FROM PORT B. 
3798 Olbe66 001012 F NOT 
| 3799 016270 Ot 37 177777 001242 69%: MOV -1,RELE SET “RE ASE ERROR’ INDICATOR 
3800 016276 012760 000011 000 MOV LI’RHCSI(RO)  ;CLEAR DRI 
016304 012760 000013 000000 #13, RHCS1 (RO) RELEASE THE DRIVE 


— 





| 
| 
| 
| 








RPOY DUAL SONTROLLER LOGIC TEST - PART 1 MACY11 27(732) O4-OCT-76 10:31 PAGE 87 
Tle 7 THAT CLEAR’ DOES NOT Cause RELEASE FROM PORT ‘A’ 
104026 EkROR 26 TYPE ERROR MESSAGE 26 
Oi 30 001162 O01126 70: MoV STNP2,$BDDAT LOOK FOR gqT FAILURES WHEN RHDS1 READ 
13737 091216 O0l226 MOV PORTA; PTNGR ‘CHANCE PORT NUMBER 
BiBS3. O2s03> Agiiey SorteS hs sezcan ath Srapo fA afore fe NT 
Bieee our ; Felon 5 tour bance “OR 
SUS SE guy ug 8 former EE ng runes ren 
3811 016365 pie? 37 100000 001164 PIC KATA Pah *DON’T CHECK THE ATTN BIT 
sig 16 029737 001124 OO1164 ciip SGDDAT, STHPS ; SEE IF READ OK FROM PORT B. 
3814 olen 104007 ERROR 7? REPORT ERROR 
3815 O16404 O00240 725: NOP 
3816 016406 1$: 
3818 IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
3820 016406 105737 901103 TSTB  SERFLG sDID AN ERROR OCCUR ? 
3821 Ol64le OOl14le BEQ TST13 ti F NO 
see OieH14 G3e737 001000 177570 BIT #5403, SUR SEE iF LOOP ON ERROR SET (SWR9=1) 
3824 616424 106937 001103 CLRB  SERFLG iPad THE ERROR FLAG 
3825 016430 005027 901170 CLR STIMES “CLEAR THE MAX ITERATION COUNT 
3826 918434 000177 162450 IMP JSLPERR GO TO THE LOOP ADDRESS 
3828 TrET ia TRET TMT TCL EGET DOES BOT COLE BEL EGE Fac Be 
3823 xTEST 13 TEST THAT CLEAR’ DOES NOT CAUSE RELEASE FROM PORT °B’ 
3631 HIVERIFY sail NASSBUS CLEAR Of DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
2833 i 
3834 ** AL RIVE Y WRITING 0’S INTO RHDS1 THROUGH PORT ’B’. 
| 38 i SEAT IFY Te IVE HAS BEEN SEIZED. 
3 fi ii B. ISSUE nf DELVE. CL BR THROUGH PORT ’B’ AND VERIFY THAT THE DRIVE 
2839 # ‘ 
3840 i ¢. ISSUE io tesseus CLER THROUGH THE RH11 AND VERIFY THAT THE DRIVE 
384 i 
3843 *# D. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
3844 it RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
9 o1e440 oh caiman tee ate ae 
1 : - INITIAL HANDLER 
i te 3 005737 001266 ist KyBCTL : PERF PERT O ORR ON ONLY OheLe TESTS ? 
2 HS BF eu me OR eles PEPE 2 prac 
| 3853 01 012737 177777 O0l2b6 1$: MOV #1, KYBCTL ;SET SINGLE TEST INDICATOR 
e548 1 Hey 116737 13 001 10¢ 2s: MOVB 813° $TSTNN * TEST R 
1 1 016514 0011 MOV #TESTI13,SLPADR ;LOAD LOOP ON TEST ADDRESS 
3856 016500 012737 016514 001110 MOV #TESTI3,SLPERR ;LOAD LOOP ON ERROR ADDRESS 
| 3857 016506 012737 007640 001170 MOV #4000.,$TIMES ;;00 4000. ITERATIONS 
| 
| 
| 
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DERPPA.P1] T13 TEST THAT CLEAR’ DOES NOT CAUSE RELEASE FROM PORT ‘6’ 

36eg 

sort $3 SKRELE LRA LAA ALELAASE LEASE ALLEL EERE SEES E LKR KARELLAESEFLEFAAELEEF ERASE LSE 

1 ‘END OF *SCOPE’ SETUP - START OF MAIN TEST 

3053 016514 TEST123: 

seep 8 5 RAAELHALLLE SEERA AE LAL EERE RE REE ERLLE LE LLL ELA LE EL ERLE RELA LER ERAELAEL 
3867 ;SEIZE THE DRIVE THROUGH PORT 8 

a8 O1e514 113760 001220 900019 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 

ser) Bieeso ooseeo ooObie Wy PORTE ater! STOR Se LCiNe PORT’S ADORESS 

3872 016534 113760 001216 oo00010 MOVB § PORTA,RHCS2(RO) ":SELECT PORT A 

Sera Bigecs OLaea7 ISIE poLoae ay Rare erie SAO OT AOE Ee NE LOCATION FOR THPECUT 
3875 016556 016037 O000l2 001126 MOV RHDSI(RO),SBDDAT’ ;SEE IF ORIVE SEIZED BY PORT B 

3876 016564 010037 901122 MOV RO, SBDADR ;RH11 BASE ADDRESS 

3877 gie570 062737 d0001¢ 001122 ROD #RHOS1, SSDAOR s GENERATE BAD REGISTER. ADDRESS 

396 Bee oe WEES 001124 001126 CMP SGDDAT,SBDDAT 315 Ree tStER ZERO 

3880 016610 001403 Q +10 :BR IF IT IS 

3881 Ol66i2 104004 ERROR 4 : T THE ERROR 

3882 016614 000137 020010 IMP :BYPASS REST OF THE SUBTEST 

3883 016620 113760 001220 o00010 MOVB § PORTB,RHCS2(RO) ":SELECT PORT B 

3884 016626 013737 O0lecD 001226 MOV ORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3885 016634 016037 O000l2 001126 MOV 1tRO),SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
388 016642 012737 011700 001124 MOV SMOL'PGM!DPRIDRY!VV.SGDDAT ;EXPECTED STATUS 

3887 O16650 013737 001124 O01160 MOV SGODAT,STMP1 ;USE GOOD DATA MASK 

3888 016656 005137 001160 COM TMP ;COMPLEMENT THE EXPECTED STATUS 

3889 Ol6662 013737 001126 001156 MOV SBDDAT,STMPO § ;SAVE THE ACTUAL STATUS 

3890 016670 043737 OO01160 001156 BIC STMP1, $TMPO CLEAR UNWANTED BIT 

3831 Dibb7 e377 001124 001156 che ScDDA t, STMPO SARE THE EXPECTED STATUS BITS SET ? 
3893 016706 104005 ERROR S~ “REPORT THE 

4 g ARIVE CLEAR THROUGH PORT BRT RST REE EEE SEREES 
3897 ; 

3898 018710 912760 000011 oDD000 MOV #11,RHCS1(RO) | ;ISSUE DRIVE CLEAR THROUGH PORT B 

3300 $3 RELEEEKPLE RL ELE LA SLRS KARE X SHE ELE EE SESE LE LEHRER TH EL EAL ES ELL EE LHEKSR REL EK ERE 
3901 *VERIFY THAT DRIVE STILL SEIZED BY PORT B 

3a05 016716 113760 001216 o00010 MOVB §PORTA,RHCS2(RO) ;SELECT PORT A 

Zope Dlerse pees? poles. OONee Hoy PORTA, PTNGR ROVE, PORT ACORESS TO. LOCATION FOR TYPEOUT 
Sop steed 016037 eae: 001126 MOV RHOS1(RO),SBDDAT’ :GET CONTENTS OF RHDS1 

San olevee pEoos? Doles tee OY BRAS A EOPOR FOR REGISTER Aopness.OF ERROR MESSAGE 
3909 16756 005037 001124 CLR SGODAT *WHAT REGISTER SHOULD BE 

3910 016762 012737 001126 001156 MOV SBDDAT,STMPO  — ; MOVE REGISTER CONTENTS TO *$TMPO’ 

3911 016770 042737 100000 001156 BIC #1C77777,STMPO ;SAVE SPECIFIED BITS 

3912 016776 001124 001156 CMP SGDDAT,STMPO  ;COMPARE THE BITS 

2913 017004 001414 BEQ *BR IF OK 





pote ee ee 


a ee oe en e+ -- 





DERPPALPil “N13 TESY THAT “CLEARY DOES NOT CAUSE UE ok" ees leap 





sae Oteore Odeea? mil BOT Tee Bie SPyvoy’atmpy = SEPEAR THE ARSKE 
agi? Bie B2s235 1166 5+ 188 Bis STMP4, $GDDAT oR ITH GOOD ih Por TYPEOUT 
3317 617030 033 ERROR 33 
18 Ol 137 001236 COM CKERR ore THE SRECISTER COMPARE ERROR INDICATOR 
3919 017036 o00240 64$: NOP 
3920 017040 113760 001220 000010 MOVB PORTB, RHCS2(RO) -SELECT PORT 8B 
3921 017046 013737 O0lec0 OOlec6 MOV RTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
017054 005037 001236 CLR EKER sCLEAR THE 'CHECK ERROR’ INDICATOR 
3358 017060 016037 O00012 001126 MOV RHOS1 (RO) SBDDAT’ ;GET CONTENTS OF RHDS1 
3924 017066 012737 000012 ODllee2 MOV 1,$B8DADR ;FORM N REGISTER ADDRESS OF ERROR MESSAGE 
3925 017074 060037 OOllee ADD RO ee OR 11 ADDRESS 
3926 017100 012737 O11700 001124 MOV eMOL ! PGM! DPR! ORY! VV,S$GDDAT ;WHAT REGISTER SHOULD BE 
3927 017106 013737 001126 001156 MOV SBDDAT, $TMPO MOVE REGISTER CONTENTS TO ’S$TMPO’ 
3928 17113 042737 100000 O011S6 BIC #1077777, STMPO eee SPECIFIED BITS 
3929 017122 023737 O01i2e4 001156 CMP $cb0aT. StMPo THE BITS 
3930 017130 001414 BEQ 
3931 017132 013737 001126 001166 MOV SB0DAT, STMPY Copy "BAD DATA’ 
3932 17140 O4 977777 OO1166 BIC 77.$TMP4Y CLEAR THE MASKED BITS 
3933 017146 053737 O01166 001124 BIS STnp4. $cpDAT = :*OR’ WITH GOOD DATA FOR TYPEOUT 
3934 017154 104033 ERROR 33 TYPE MESSAGE 33 
3935 017156 005137 001236 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
3936 017162 O00240 65$: NOP 
3938 : EKER SEBPLERSA KLE RELA KER RE RRS LE SLE LS LES ARAL ELA FLEX SRE HES PAE SEF SELES ERSLELE 
3939 "NOW ISSUE MASSBUS INIT $ 
1 017164 012760 ocOo0040 00010 MOV  &CLR,RHCS2(RO) ;ISSUE MASSBUS INIT ; 
3943 . © SELEKAREAERASEAAALA RAF AERELERALAA LEA AERA LE LALAALLAA KARE RLAL ELLA RARER REE 
3944 *CONFIRM THAT DRIVE STILL SEIZED BY PORT B 
Soup 017172 113760 001216 000010 MOVB  PORTA,RHCS2(RO) ;SELECT POR 
3947 017200 013737 O01e16 001226 MOV PORTA, PTNBR sMOVE P ORT FLORES. To LOCATION FOR TYPEOUT 
3948 017206 005037 001236 CLR CKERR’ : EAR THE K ERROR’ INDICATOR 
3949 Oi7ele 016037 900012 001126 MOV RHDS1(RO),SBDDAT’ GET CONTENTS” OF RHDS1 
3950 017 012737 O00012 OOlle2e MOV #RHDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
3951 017226 060037 001122 ADD RO, SBDADR ADD RH11 BASE ADDRESS 
| 3952 017232 005037 001124 CLR SGDDAT * WHAT REGISTER SHOULD BE 
3953 017236 013737 OO0ll26 001156 MOV SBDDAT,STMPO = ;MOVE REGISTER CONTENTS TO 'STMPO’ 
3954 017244 042737 100000 001156 BIC #1077777, STMPO ;SAVE SPECIFIED BITS 
335 b1 7658 023737 001124 001156 CMP GDOAT, SHPO °C 
1 001414 :BR IF 
| 32 017679 buaray BYTPeF DOLiEe Hee | SSUDPy’STNpY —-FELEGR THE. RASKED BITS 
t 
3geq 1555p nee B01 166 Boise 1S STMP4, $GDDAT SOR WITH GOOD DATA FOR TYPEOUT 
Ser) ot soe fa 37 001236 ERROR CKERR TYPE Messe SFcttr COMPARE ERROR INDICATOR 
Sees Bisse pooeao bes: NOP ; 
| 3963 017314 113760 01220 000010 MOVB PORTB, RHCS2(RO) -SELECT PORT B 
3964 017322 013737 001220 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3965 017330 005037 0012 CLR CKERR’ CLEAR THE * CHECK ERROR’ INDICATOR 
3366 1 O1e037 000012 001126 MOV RHDS1 (RO) SBDDAT’ GET CONTENTS OF RHDS1 
7? 017342 012737 OO0012 OOll22e MOV aRHDS | SBORDOR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
3968 017350 060037 001122 RO, SBDADR + AD RAL 1 BASE ADDRESS 
3969 017354 012737 011700 001124 MOV #MOL!PGM!DPR!IDRY!VV,SGDDAT ;WHAT REGISTER SHOULD BE 
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DERPPA.P11 T13 TEST THAT ‘CLEAR’ DOES NOT CAUSE RELEASE FROM PORT 
70 O17 13737 0 MOV $8 TMPO 80 REGISTER CONTENTS TO '$TMPO’ 
ga5y Bicsbs Biaca? ObLiee Ot lee Sa facet MPa SrVE SSeecTF TED. BITS 
3372 017376 023737 001124 001156 CHP scooat, strPo ! NPARE 
3333 pietRe poLd 001126 001166 MOV Sa8par, STMPY at 6 DATA’ 
3975 017414 042737 077777 OO11&6 BIC #77777, STMP4  :CLEAR THE MASKED BITS 
3378 oie 953737 OO1166 001124 81S STMPY,$GDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
39 17430 104034 ERROR 34 ?TYPE MESSAGE 34 
3978 017432 005137 001236 COM CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 
$303 017436 O00240 67$: NOP 
$381 ;RELEASE THE DRIVE FROM PORT B 
3983 17440 113760 991220 000010 MOVB PORTE, ,RHCS2(RO) ;SELECT PORT B 
3984 017446 613737 OO0l2c0 OOlees MOV PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
3985 017454 912760 O00013 O0000 MOV 813, Thies) tRO)* s ISSUE RELEASE THROUGH PORT B 
3359 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
S356 017462 005037 o01242 CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
3990 O17466 012737 900012 OOlie2e MOV SRHDS SBDADR ;FORM THE ADDRESS OF RHDS1 FOS TYPEOUT 
3991 017474 060037 OOllee ADD “ADD 1/0 BASE ADDRES 
3992 017500 012737 011700 001124 MOV Bite rreuurnge $GDDAT _;COMPARISON CONSTANT 
3993 017506 113760 OO1216 O000i0 MOVB SELECT PORT’ 
3994 17514 016037 OO00l2 O011b2 MOV se tRee GET THE DRIVE STATUS REGISTER FROM PORT A. 
3995 017522 013737 O01162 001156 MOV eines aes *COPY IT INTO ’STMPO’ 
399% 017530 04 100100 001156 BIC scan STMPO  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
3997 017536 413760 001220 000010 MOVB PORTB,RHCS2(RO) ;SELECT PORT 
3998 917544 016037 O00012 001164 MOV RHDS1tRO).S$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
3999 017552 013737 001164 001160 MOV STMP3, STMPL :COPY IT INTO 'STMP1’ 
4000 017560 042737 100100 001160 BIC BATA'VV.STMPL :CLEAR PORT DEPENDENT BITS FROM THE COPY 
4001 017566 023737 001156 O01160 CMP STMPO, STMPL 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
4002 017574 001006 BNE 68S F NOT 
4003 017576 005737 001156 TST STMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
4004 017602 001045 BNE 70S F NOT 
4yO0S O17604 104046 ERROR 46 REP ORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
4006 017606 000137 IMP 725 *BYPASS THE REST OF THE CHEC 
4007 O176le 013737 O01l62 001126 68%: MOV STMP2,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
4008 017620 013737 001220 O01226 MOV PORTS, PTNBR j SEIZING. POR IF TEST SHOWS DRIVE NOT IN NEUTRAL 
4009 017626 113760 OOle20 OO0010 MOVB § PORTB;RHCS2(RO) :SELECT P 
4010 017634 005737 001156 TST STMPO’ sSEE IF CrATUS EQ O FROM PORT A. 
401i 17640 BOL414 BEQ 695 
4012 O17642 013737 O01216 O01226 MOV PORTA PTNBR ee ing PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
4013 017650 013737 OO1164 OO1126 MOV STMP3,SB8DDAT _;*BAD DATA’ FOR ERROR TYPE OUT 
4014 017656 113760 001216 OO0010 MOVB § PORTA;RHCS2(RO) ;SELECT PORT A. 
4915 017664 005737 001160 TST STMP1' ; SEE IF STATUS EQ ZERO FROM PORT B. 
4016 17670 Do1d1e BNE 70$ BR T 
4017 017672 012737 177777 OO1e42 693: MOV #-1,RELERR T RELEASE ERROR’ INDICATOR 
4018 017700 Oie760 000011 000000 MOV fii’ »RHCS1 (RO) ichean THe My 
4019 017706 Ole760 000013 O00000 MOV #13, RHCS1(RO) iR LEASE DRI VE 
4020 017714 104026 ERROR 26 *TYPE ERRO 26 
4021 017716 013737 001162 001126 70%: MOV STMP2,SBDDAT ;LOOK FOR ae PATLURES WHEN RHDS1 READ 
4022 017724 013737 001216 OOle26 MOV PORTA, PTNBR ? CHAN T NUMBER 
4023 017732 042737 100000 OO1i6e BIC #ATA, STMP2 DON’T CHECK THE ATTN BIT 
4024 017740 023737 O01124 OOl162 CMP Sc0AT, STMP2 sALL 
2S 017746 001401 BEQ :BR IF or Pron PORT A. 
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ERROR 

CHECK RHOS1 FOR BIT FAILURES - FROM PORT 8. 
;CHANGE PORT NUMBER 

:DON’T CHECK THE ATTN BIT 

SEE iF READ OK FROM PORT 8. 


:DID aN ERROR OCCUR ? 
: SEE IF LOOP ON ERROR SET (SWR9=1) 
SArEAR T THE ERROR F 


R LAG 
:CLEAR THE MAX ITERATION COUNT 
GO TO THE LOOP ADDRESS 


VERIFY THAT A eee INITIALIZE CLEARS ONLY THE ATTENTION BIT OF THE 


VERIFY THAT BOTH ATTENTION BITS 


SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O°S INTO RHDS1. 


VERIFY_THAT THE ATTENTION 


BIT FOR PORT cr. HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 


; INITIALIZE THE SCOPE HANDLER 
aE ORNENG ONLY SINGLE TESTS ? 


;BR IF JUST ENTERED TEST 
TURN NEXT TEST NUMBER 
SET INDICATOR 


; LOAD LOOP ON TEST ADDRESS 
AD LOOP ON ERROR ADDRESS 


T13 TEST THAT CLEAR’ DOES NOT RAUSE RELEASE FROM PORT 
104007 ERROR 7 s REPORT 
013737 1164 OO1126 718 MOV $TMP3, SBDDAT 
13737 001220 O0l226 MOV PORTB; PTNBR 
Oye737 100000 901164 BIC —- #ATA, STMP3 
3737 OO11e4% O01184 CMP SGDDAT, STMP3 
001401 BEQ 72$ R 
104007 ERROR 7 REPORT ERROR 
000240 728: NOP 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
105737 001103 TSTB  SERFLG 
Sol4i¢ BEQ TSTL4 
73? 001000 177570 BIT #509, SWR 
001406 BEQ TSTI4 : 
105037 001103 CLRB = SERFLG 
005037 001170 ¢LR STIMES 
000177 161046 IMP JSLPERR 
STEET 1a Ike? BERET ATTENTION a’ EY nae ce 
T 14 TEST RESET ATTENTION ’A’ BY MASSBUS CLEAR 
33 SEIZING P 
*% A. SET EACH PORT ’S ATTENTION BIT. 
;* SET. 
;* 
i: 
i C. ISSUE A MASSBUS CLEAR. 
+ 
ii D. RELEASE THE DRIVE THROUGH PORT ’A’. 
i *B’ IS STILL 
jLetsHEEREEEESORENEROSERORORSEEEERENNSDURESERESEOREREREDEROEOOES 
oo0004 "SCOPE 
005737 O01266 TST KYBCTL 
001406 BEQ 2s 
100002 BPL I 
000137 002410 IMP c 
012737 177777 OO1266 15: MOV #-1, KYBCTL 
112737 000014 O01102 2: MOVB #14’ STSTNM : TEST NU 
012737 020116 001106 MOV #TEST14, SLPADR 
012737 020116 001110 MOV error, SLPERR 
012737 000004 001170 MOV TIMES 


LO 
D0 4 ITERATIONS 


59 RRR REEEEEEEEEEEEE 
sEND OF "SCOPE’ SETUP - START OF MAIN TEST 


NO? 
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DERPPA.P11 TEST RESET ATTENTION ’A’ BY mAsSBUS CLEAR 
4088 020116 TESTLY: 
a fp RRRRAREAE ERAS SEEK RARE LARA ESE RAE E EAL ELRAEELES EL REEELE LEE LLLELEREFLELRES 
;SET ATTENTION BITS FOR BOTH PORTS 
upg 0116 413760 001216 900010 MOVB PORTA, RHCS2(RO) ; SELECT PORT ’A’ 
4088 O20] 12760 177777 OOCOL4 MOV #-1,RHERI(RO)  :FORCE ERRORS 
4089 020132 000014 CLR RHER1 (RO) COE BR THE ERRORS 
40 Ol 13760 OO0le20 o000i0 MOV PORTB, RHCS2(RO) SELECT THE OTHER PORT 
4091 620144 905760 O000le TST RHDS1{RO) ‘WAIT FOR DRIVE TO TIMEOUT 
4092 020150 001775 BEQ 4 ?BR IF DRIVE HASN’T TIMED OUT 
093 020152 012760 177777 900014 MOV #-1,RHERI(RO)  :FORCE ERRO S ON PORT 'B’ 
4094 O20160 000014 CLR RHERI (RO) CLEAR T ae PRORS 
4098S O20164 113769 OOl2ei6 on0010 MOVB PORTA, RHCS2(RO) ; SELECT POR AIN 
4096 20172 605760 o000l2 TST RHDS1{RO) sATT FOR BRIVE TO TIMEOUT 
1937 920176 001775 BEQ 4 R IF DRIVE HASN’T TIMED OUT 


LOMFIRN TIMAT BOTH ATTENTION BITS ARE GET enna 


#100  AONF IRM THAT BOTH ATTENTION BITS ARE SET 
4102 020200 113760 001216 oD00010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT A 
4i03 O20206 013737 OOlel6 001226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4104 O20214 005037 001236 CLR CKERR’ s CLEBR THE 'CHECK ERROR’ INDICATOR 
4i0S O20220 016037 000012 001126 MOV RHDS1(RO),$BDDAT’ CONTENTS OF R 
4108 gevee O1e737 g00012 001122 MOV #RHDS1. $BOADR Tron M REGISTER ADDRESS OF ERROR MESSAGE 
410 34 37 Olle ADD RO, $BDA “ADD RH11 BASE ADDRESS 
4108 O20240 012737 100000 001124 MOV #ATA,SGDDAT ;WHAT REGIS TER SHOULD BE 
4109 O202% 013737 001126 001156 MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO ’STMPO’ 
4110 920254 042737 077777 001156 BIC 8tCATA; STMPO , SAVE SPECI IFIED BITS 
4111 O20262 023737 001124 001156 CMP $GDDAT,STMPO ° ;COMPARE THE 
4112 G20270 OO1414 BEQ 64S BR IF OK 
4113 O20272 013737 001126 001166 MOV $BDDAT,STMP4Y  :COPY *BAD DATA’ 
4114 020300 042737 100000 001166 BIC #ATA, STMPY *CLEAR THE MASKED BITS 
4115 020306 053737 OO1166 001124 BIS STMP4,S$GDDAT  ;'OR’ WITH GOOD DATA FOR TYPEOUT 
4116 020314 104010 ERROR 10 REPORT THE ERROR 
4117 020316 005137 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
4118 O20322 oo0240 64$: NOP 
| 4119 20304 005737 001236 TST CKERR ;WAS ATTN BIT FOR PORT A SET ? 
4120 020330 001402 BEQ +6 *BR IF IT WAS ‘ 
4121 020332 000137 021340 IMP i$ "BYPASS REST OF TEST IF NOT 
4i22 020336 113760 OO1l220 on0010 MOVB  PORTB,RHCS2(RO) "SELECT 
4123 O20344 013737 001220 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4124 O203S52 005037 001236 CLR CKERR’ CLEAR THE "CHECK ERROR’ INDICATOR 
aise rae Eee Hane Botts HOY Re), sno in ReGisTE R BODRESS OF ERROR MESSAGE 
| a Renate 128 SO RBPOB AAR ROD RATT ACE ADRESS 
4128 020376 012737 100000 001124 - MOV Gata $GDDAT WHAT Reeret TER SHOULD BES 
| 4129 O20404 013737 O01126 001156 MOV SBDDAT,STMPO ’ -MOVE REGISTER, CONTENTS TO ’S$TMPO’ 
| 4130 Oe0412 042737 077777 001156 BIC #tCATA,STMPO ;SAVE SPECIFIED BITS 
| 4131 O20420 023737 001124 001156 CMP S$GDDAT, STMPO "COMPARE THE BITS 
| 4132 Q20426 001414 BEQ 
| 4133 020430 013737 001126 001166 MOV $BDDAT,STMP4 COPY "BAD DATA’ 
4134 O20436 042737 100000 OO1166 RIC ATA, STMPY CLEAR THE MASKED BITS 
4135 020444 053737 OO1166 O01124 B15 STMP4 , SGDDAT R’ ITH G90D DATA FOR TYPEOUT 
4136 Oe04s2 {04010 ERROR 10 REPORT 
4137 O20454 137 001236 COM CKERR :SET THE "REGISTER COMPARE ERROR INDICATOR 
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i Tl4 TEST RESET ATTENTION "A" BY MASSBUS CLEAR 
O22460 200240 S$:  NuP 
bebe Ocse3? 001296 TST —-CKERR sWAS ATTN SIT FOR PORT & SET ? 

0466 003402 BED. 46 :BR IF IT 

6475 60013" 921340 me OOS :BYPASS REST OF TEST IF NOT 

SL ERSSSSEEESS + SELFLESASLESELALESSSESSFSSRSLFSELELELELE LL FES OLFLAFEF FS ESSA 
;SEIZE THE DRIVE THROUGH PORT A 
7 1:3760 001216 90001 MOVE  PORTA,RHCS2(RO) ;SELECT PORT A 

Secsc2 613737 OO1e18 Ool22 Mov -PORTA'SEIzPT ;STORE SEIZING PORT’S AODRESS 
G205165 905060 ondtie CLR 1tRC) sWRITE PHOS! 
G50514 91373? 901220 001232 MOV» PORTB,OPPRT =: “OPPOSITE” PORT ADDRESS 


TIIItiiitiiiiiiiiiitiiiiiiiiiiitiiitiiiitiiiiiiiiiillill, 
:$SSUE MASSBUS INIT TO PORT A 


Qeos22 012760 s00c40 oOcoo10 MOV SCLR.RHCS2(RO) ;MASSBUS INIT 
1 319 MOVB PORTA,RHCS2(RO) ';SELECT PORT A AGAIN 


§  RELELESSEFFTESELELSSSESLLLT FELELELELELLLSFRALELELALELELFRLLESLELELELSE 
: VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 





O20S36 0050327 001236 CLR CKERR sCLEAR THE 'CHECK ERROR’ INDICATOR 
020542 016037 O00012 001126 MOV RHDSI(RO),SBDDAT’ :GET CONTENTS OF RHDS1 
012737 000012 Gallze MOV SRHDS1,SEDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
OSSE Obl ie2 ADD RO sADD_RH11 BASE ADDRESS 
C2052 1124 CLR sWHAT REGISTER SHOULD 
520566 O01 001126 OO11S6 MOV SBODAT,STMPO — :MOVE REGISTER CONTENTS TO ’STMPO’ 
beter Oe? 37 077777 90115 BIC StCATA,STMPO ;SAVE SPECIFIED SITS 
001124 901156 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
020610 001414 BEQ *BR IF OK 
C2612 013737 O01126 001166 MOV SBDDAT,STMP4  ;COPY "BAD DATA’ 
020620 pie? 32 19 001166 BIC SATA, STMPY sCLEAR THE MASKED BIT 
O20626 1166 001124 BIS STMP4,S$GDDAT ;°OR’ WITH GOOD DATA FOR TYPEOUT 
2 104047 ERROR 47 “TYPE MESSAGE 47 
920836 005137 001236 COM CKERR "SET THE REGISTER COMPARE ERROR INDICATOR 
Cet642 o00e40 &$: 
5p RHHHELEEALLLLSERERSLALELLLLFLALLLLELEL LE LAA ALAA EAALELERELELLELLALLLEE 
sRELEASE THE DRIVE FROM PORT A 
020644 413760 121 900010 MOVE  PORTA,RHCS2(RO) ;SELECT PORT A 
Cecese 013737 O01216 S0lec6 MOV PORTA: PT sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
N20669 012760 000013 o00000 MOV #13,RHCSI(RO)’ ;ISSUE RELEASE THROUGH PORT A 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 
001242 CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 
bene? 012737 000012 OOl122 MOV #RHDS1, SBDADR sFORN THE ADDRESS OF RHDS1 FOR TYPEOUT 
01128 ADD RO {ADD THE 1/0 BASE ADDRESS 
020704 012737 011700 001124 sMOL!PGM!DPRIORY! Vv ;COMPARISON CONSTANT 
02071 13760 001215 10 | PORTA, RHCS2(RO) 
he07 16037 900012 O01i6e 
020726 013727 O0ll62 OO1156 
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DERPPA.P11 TEST RESET ATTENTION °A’ BY MASSBUS CLEAR 


4194 020734 042737 100100 001156 Bic BATAIVV,STMPO CLEAR POST DEPENDENT BITS FROM THE ¢ 
4198S O20742 113769 001220 000010 MOVB  PORTB,RHCS2(RO) :SELECT P 
4196 85750 016037 O0C0le 001164 MOV RHDSI{RO).STMP3 :GET THE ORE STATUS REGISTER FROM PORT 8. 
4197 756 Ols: 1164 OO1160 MOV 1 :COPY IT INTO 'STMPL’ 
4} bier 3 180100 903160 BIC BATA'VV,STMP1 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
4199 O2 001156 601160 CMP STMPO, STMPL TS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
4200 921000 392596 SNE 67$ BR IF NOT 
4201 21002 005737 001156 TST STMPO ; REGISTERS ARE THE SAME: ARE THEY ZERO ? 
4202 021008 OO1D4S BNE 69S BR IF NOT 
4503 Oeldle 1C4O46 ERROR 46 ‘REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
4204 O210l2 000137 o21212 713 *BYPASS THE REST OF THE CHECK S 
4205 OelD16 13737 001162 O01126 678: MOV ctaPe, 32008T :SET UP POSSIBLE BAD DATA FOR ERROR 
4206 621024 013737 001220 001226 MOV PORTS, PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
4207 ge its 3780 O012e20 O00019 MOVB PORTE, RHCS2(RO) :SELECT PORT B. 
4208 O21 iiaree 001156 TST STMPO *SEE IF STATUS EQ O FROM PORT A. 
4209 021044 901414 BEQ ESS :BR IF ZERO 
} 4310 21046 13737 001216 001226 MOV PORTA, P TNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 4211 O810S4 O1 OO11E4 OOl1126 MOV STMP 3, SBODAT BAD DATA’ FOR ERROR TYPE OUT 
Hele 021062 113760 901216 000010 MOVB  PORTA;RHCS2(RO) :SELECT PORT A. 
4213 021070 005737 001160 TST STMPI *SEE IF STATUS EQ ZERO FROM PORT B. 
4214 021974 00101 BNE 69S ;BR_IF NOT 
4215 O21076 Ol 177777 001242 68S: MOV =1,RELE SET "RELEASE ERROR’ INDICATOR 
| 4216 021104 Ol 900011 ococco0 MOV #1I'RHCSI(RO)  :CLEAR THE DRIVE 
4317 Qelll2 612760 000013 o00000 MOV #13;RHCSI(RO)  ;RELEASE THE ORI 
| 4218 021120 104026 ERROR 26 : :TYPE ERROR ME 26 
4219 O2lle2 013737 001162 001126 69S: Mov STMP2,SBDDAT LOOK FOR BIT FAILURES WHEN RHDS1 READ 
| 4220 021130 013737 001216 O01226 MOY PORTA, PTNBR CHANGE PORT 
| 4221 021136 37 100000 O0!162 BIC #aTA,$ SDON’T CHECK THE ATTN BIT 
| eee 821144 Beg5 001124 O01162 CMP SGODAT,STMP2 :ALL BITS OK ? 
| 4333 021152 001401 BEQ 70S *BR IF OK FROM PORT A. 
| 4294 021154 104007 ERROR 7 REPORT ERROR 
| 4225 021156 013737 001184 001126 708: MOV STMP3,SBODAT | ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT 8. 
4226 O21164 013737 001220 001226 MOV PORTB’ PTNSR :CHANGE PORT 
' Mee? 021172 042737 100000 OO1164 BIC #ATA, $TMP3 :DON’T CHECK THE ATTN BIT 
| 4228 021200 023737 001124 001164 MP SGDDAT,STMP3  :SEE IF READ OK FROM PORT B 
| 4229 961206 001401 BEO 71§ BR IF OK 
| 4230 81210 104007 ERROR 7 REPORT ERROR 
Heal Gelzi2 o00240 71S: 
{ 4233 . SHFSEEEEFEREREKSREKSLA LE FSLLAFEREFFRESAHLRE FARTHER SLERLA LEAR SESE LIRFE BE 
| des sCHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT B) 
«4236 021214 113760 001220 oo0010 MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
4237 Qelece 013737 O01e2e0 O0l226 MOV PORTB,PTNBR ;MOVE PORT ADORESS TO LOCATION FOR TYPEOUT 
4238 Oele30 005037 001236 CLR c vELEAR THE 'CHECK ERROR’ INDICATOR 
| 4239 021234 016037 000012 001126 MOV RHDS1(RO),SBDDAT’ :GET CONTENTS OF RHDS! 
| 4240 Oele42 012737 000012 Odile MOV SRHDS1,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
BeGte eae = Shee, olen 
ee) aes pisa3, il pot tes MOV SBDDAT, STMPO nHOvE Hee STER CONTENTS TO ’STMPO’ 
| p44 021270 042737 077777 OO1ISE BIC 8tCATA, STMPO . SAVE SPECIFIED 
Hed Oe1e76 37 301124 OO1156 CMP T;STMPO ° ;COMPARE THE Beis: 
4 1 1414 BEG 7 BR IF OK 
4247 021306 013737 001126 001166 MOV SBDDAT,STMPY COPY *BAD DATA 
4248 021314 042737 100000 OO1166 BIC #ATA, STMPY CLEAR THE PASKED BITS 
4249 021322 O01166 O0112e4 BIS STMP4,SGDDAT  :°OR’ WITH GOOD DATA FOR TYPEOUT 
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T14 TEST RESET ATTENTION 'A® BY MASSBUS CLEAR 
104050 ERROR 50 -TYPE MESSAGE SO 
005137 001236 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATIS 
000240 728: NOP. 

1$: 

sIF ERROR OCCURED, CHECK FOR LOOP ON TEST 

05737 001103 TSTB  SERFLG ;DID AN ERROR OCCUR ” 
ool4le BEQ TSTIS :-BR IF NOT 
932737 001000 177570 BIT #S5W09, SWR ; SEE IF LOOP ON ERROR SET (SWR9=1) 
001405 BES TST1S eT 
105037 001103 CLRB =s- SERFLG ‘AT EAR ERROR FLAG 
095037 001170 6LR STIMES : CLEAR THe MAX ITERATION COUNT 
000177 157516 INP JSLPERR -3G0 TO THE LOOP ADDRESS 

; RERAALLSLESESHERELALLALLL LL LA LL LS AFAALARALLLLALEL LALLA ALLEL ESS 

ixTEST 15 TEST RESET ATTENTION 'B’ BY MASSBUS CLEAR 


S*VERIFY THAT A MASSPUS INITIALIZE CLEARS ONLY THE ATTENTION SIT OF THE 
SEIZING PORT. 
a. zt EACH PORT’S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


s# 8. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RHDS1. 

x C. ISSUE A MASSBUS CLEAR. 

;# OD. RELEASE THE DRIVE THROUGH PORT ’8’. VERIFY THAT THE ATTENTION 
: BIT FOR PORT 'B’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
- "A’ IS STILL SET. 

.% 


7 Migpgaggpaame scenes causa mre ga Seeman 


t 


oo0004 sINITIALIZE THE SCOPE HANDLER 
005737 001266 TST KYBCTL PERFORMING ONLY SINGLE TESTS ? 
001406 2s ‘BR IF NOT 
100002 BPL {3 BR IF JUST 
1 og2410 JMP EXEC RETURN & GE ene Tet NUMBER 
1 1 001266 15: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
112737 000015 O01i02 25: MOVB #15’ STSTNN TEST NUMBER 
012737 021446 001106 MOV 8TEST15,SLPADR ;LOAD LOOP ON TEST ADDRESS 
01 021446 001110 MOV STESTIS'SLPERR ;LOAD LOOP ON ERROR ADDRESS 
012737 000004 001170 MOV 84, $72 eS D0 4 ITERATIONS 
tip OF SCOPE’ SETUP © STRAT OF MAIN TEST 
END OF SETUP - START OF MAIN TEST 
TESTI 


5: 
59 AE Ae A de a HH A HE AH AE EERE REE E EERE EER 
;SET ATTENTION BITS FOR BOTH PORTS 


901216 00010 MOVB §PORTA,RHCS2(RO) ;SELECT PORT 'A’ 
17 000014 MOV #-1,RHERI(RO)  ;FORCE ERRORS 


Or 
e-+ o-2 








B= bbs bt 2 3 bs Fh 2 + 2 2m 1 = BH 2 D2 6 Ps 4 0-2 B0 Hf ho Pb = heh we 


Ri RS SeR sa eaeRs eee ee ueReeteRrRaeNE 
SSR IT ORES ION SER SERS COR EREN COT He Smo 
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1 TEST RESET ATTENTION °8’ BY MASSBUS CLEAR 


900014 CLR RHERI (RO) :CLEAR THE ERROR 
nee 000010 MOV BER RHCS2(RO) i CLFER, THE ARC PORT 
000012 RHDS1{RO) “WAIT FOR DRIVE TO TIMEOUT 
177777 000014 MOV #-1,RHERI(RO) FORCE ERRORS ON PORT 'B’ 
000014 CLR RHER| (RO) ‘CLEAR THE Ss 
001216 000010 MOVB PORTA, RHCS2(RO) ;SELECT PORT “A” AGAIN 
000012 TST RHDS1{RO) *WAIT FOR ORIVE TO TIMEOUT 
BEQ 4 *BR IF DRIVE HASN’T TIMED OUT 


were * 


5, RHFRELSSELLLELELE LALLA AAAALLLLAFLESELAERLELELLLE SRL LALA SELES ERELE SALLE 
:AONFIRM THAT BOTH ATTENTION BITS ARE SET 


113760 001220 o00010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 
013737 OOle20 O0l2c6 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005037 001236 CLR CKERR sCLEAR THE CHECK ERROR’ INDICATOR 
016037 O000l2 001126 MOV RHDSI(RO),SBDDAT’ :GET CONTENTS OF RHDS1 
012737 O00012 OOlle2e MOV #RHDS1,S$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
060037 901122 ADD RO “ADD RH11 BASE ADDRESS 
012737 100090 001124 MOV BATA, SGDDAT ;WHAT REGISTER 
013737 001126 001156 MOV T,$T “MOVE REGISTER CONTENTS TO ’STMPO’ 
04 077777 001156 BIC StCATA,STMPO ;SAVE SPECIFIED BITS 
001124 O01156 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
1414 BEQ "BR IF OK 
013737 001126 001166 MOV SBDDAT,STMPY  :COPY ’BAD DATA’ 
042737 100000 O01166 BIC SATA, STMPY “CLEAR THE MASKED BITS 
053737 OO1166 001124 BIS STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
104010 ERROR 10 *REPORT THE ERROR 
005137 001236 ae Con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
riceid 001236 iS CKERR s WAS aTTN BIT FOR PORT B SET ? 
lk gee670 JMP is : S REST OF TEST IF NOT 
il lel6 000010 MOVB  PORTA,RHCS2(RO) "-SELECT PORT A 
01 001216 001226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
phenae 001236 CLR CKERR sCLEAR THE CHECK ERROR’ INDICATOR 
016037 O000l2 001126 MOV RHDSI(RO),$BODAT’ :GET CONTENTS OF RHDS! 
12737 000012 OOllee MOV #RHDS1 .SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
I eos 001124 Roy sata 1 sWHAT Rectotes SHOULD BE 
pier bot ice 001156 MOV SEDDAT SNPO * sMOVE REGISTER CONTENTS TO ’STMPO’ 
042737 077777 001156 BIC atcATa, STHPO SAVE SPECIFIED BITS 
ea 001124 001156 CMP SGDDAT;STMPO =" ;C BITS 
1414 BEQ 65S *BR IF OK 
013737 001126 001166 MOV SBODAT,STMPY  _: COPY "BAO DATA’ 
oie7a? 100000 001166 BIC #ATA, STMPY :CLERR THE MASKED BITS 
001166 001124 BIS STMP4,SGDDAT  ;'OR’ WITH GOOD DATA FOR TYPEOUT 
104010 ERROR 10 : ERROR 
37 001236 a CoH CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
005737 001236 TST CKERR sWAS ATTN BIT FOR PORT A SET ? 
0ul40e2 BEQ +6 :BR T WAS 
000137 022670 IMP is *BYPASS REST OF TEST IF NOT 


sp RARE EAA ELLER REAL RE RAE REALL AAA LE REAL EL RAAAA ALLELES ALLE RELA ARELERERE 
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;SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB,RHCS2(RO) ;SELECT PORT 8 
MOV PORTB, SEIZPT STORE SEIZING PORT’S ADDRESS 
CLR RHDS1{RO) TE RHOSI 

MOV PORTA, OPPRT :*OPPOSITE’ PORT ADDRESS 





; = SEREKRELELA LE SSSA SASSER AA ERE LEE RSERALKASELAL FRALARALREAASKALLF SFL EREZESLE 
:$SSUE MASSBUS INIT TO PORT B 


MOV SCLR,RHCS2(RO) ;MASSBUS INIT 
MOVB PORTB,RHCS2(RO) ';SELECT PORT B AGAIN 


e KESEFAFLELEHELSLERSLALEE LAKHS ELAEA AREER AA ZEAE RKLALERA LALA ERALEAELALERE 
VERIFY 1HAT ATTENTION BIT FOR PORT B CLEARED 


CLR CKERR *CLEAR THE ’CHECK ERROR’ INDICATOR 
MOV RHDS1(RO),SBDDAT’ ;GET CONTENTS OF RHDS1 

MOV #RHDS1.SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO "ADD RH11 BASE ADDRESS 

CLR sHHAT REGISTER SHOULD BE 

MOV ;MOVE REGISTER CONTENTS TO *STMPO’ 


SBODAT, STMPO 
BIC StCATA,STMPO ;SAVE SPECIFIED BITS 
C SGDDAT; STMPO 


MP sCOMPARE THE BITS 

BEG 3BR_IF OK 

MOV SBODAT,STMPY :COPY ’BAD DATA’ 

BIC #ATA, STMPY ;CLEAR THE MASKED BI 

BIS STMP4, SGDDAT 37OR? WITH GOOD DATA FOR TYPEOUT 

ERROR 47 “TYPE MESSAGE 47 

con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 


5p RHRAEREEAELAS ELE LE SELLE LLL ALLELLAARE REALE LL LLEEA RELA LE LALAL ALLA RR ELELE 


;RELEASE THE DRIVE FROM PORT 8 


MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
MOV PORTS; PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RACSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 


sVERIFY THAT THE DRIVE IS IN NEUTRAL 
CLR RELERR ;CLEAR THE "RELEASE ERROR ’ INDICATOR > 
MOV #RHDS1,SBDADR :FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 

ADD RO {900 THE THE Vv 0 BASE ADDRESS 

MOV sMOL!PGM! DPR! DRY! VV, SGDDA -# COMPARISON CONSTANT 


MOVB ere RHC 
at RHDS1 {RD RO) SIRS sBELEET POR fre’ DR Ny PL REGISTER FROM PORT A. 


Bre sires, STi ia ‘al 1 DEPENDENT BITS FROM THE COPY 

MOVB TB RieeetRO) 

MOV AUR) STMP3 i i + fe STATUS REGISTER FROM PORT B. 

MOV STMP3, STMP1 

BIC WATA'VV.STMP1 © 3 SE PENDENT BITS FROM THE COPY 

CMP STHPO, StHPL ic The “STATUS REGISTER THE SAME FROM BOTH PORTS ? 
g 
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sqyro iBECERTERS ARE THE SAME: ARE THEY ZERO ? 
os SREPORT DRIVE NOT IN + gle 4 NOT SEIZED 
71$ sBYPASS THE REST OF THE Gene 
Sipe, SBODAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB, PTNBR ; SEIZING atl IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB,RHCS2(RO) ;SELECT PORT 
STMPO" ;SEE IF STATUS EQ 0 FROM PORT A. 
68S 7BR IF ZERO 
PORTA, PTNBR i9 SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
S$TMP3, SBODAT ;BAD DATA’ ge. ERROR TYPE OUT 
PORTA, RHCS2(RO) ;SELECT PORT 
STMP1" jDEE IF TATUS. EQ ZERO FROM PORT 8. 


#-1,RELERR ;SET on he ta ERROR’ INDICATOR 
sil » RCS 1 (RO) ; THE DRIVE 
13, »RHCS1(RO) LEASE THE DRIVE 


ERROR MESSAGE 26 
STMP2, SBDDAT LOOK FOR BIT FAILURES WHEN RHDS1 READ. 
PORTA, PTNBR ; CHANGE PORT NUMBE 


#ATA, $TMP2 SDON’T CHECK THE ATTN BIT 
SGODAT , STMP2 BITS OK ? 
708 ier IF OK FROM PORT A 


STNP3, SBDDAT ;CHECK RHDS1] FOR BIT FAILURES - FROM PORT B. 
PORTB. PTNBR CHANGE PORT NUMBER 


#ATA, STMP3 “DON’T CHECK THE ATTN BIT 
SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT B. 
71 BR IF OK 

| ie 7 REPORT ERROR 


5 Aer ATIFNTION BIT ON THE OPPOSITE PORT (PORTA) 
:CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT A) 


72$: 
15: 


;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 


PORTA,RHCS2(RO) ;SELECT PORT 

PORTA,PTNBR ;M0 MOVE P ol eDORESS TO LOCATION FOR TYPEOUT 
CKE THE *CHECK ERROR’ INDICATOR 
RO (RO? seppar’ 


REY CONTENTS OF RHD 
RHDS1, SBOADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
“ADD RH11 BASE ADDRESS 
ae Scb0AT s WHAT T REGISTER SHOULD BE 
penra's SISTER, CONTENTS TO *STMPO’ 
Te SA a 
SAT STMPY rd + BAD DATA’ 
#ATA teSou ; CLEAR THE MASKED BITS 
STHPA, SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
* TYPE MESSAGE 50 
EKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
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TEST RESET ATTENTION '8’ BY NASSBUS CLEAR 


021103 
001000 


177570 


000010 
000014 


000010 


000014 
000010 


Ts7B SERF G z010 9 AN ERROR OCCUR ? 
BEQ ST 

SIT #5W09, SWR : CEE iF SOP ON ERROR SET (SWR9=1) 
BEQ TST16 : + BR 

CLR8 © SERFLG -CLEAR THE ERROR FLAG 

CLR STIMES ; CLEAR tte Max ITERATION COUNT 
IMP JSLPERR *GO TO THE LOOP ADDRESS 


5 EF ELRREAE ERE RRERREEERELE LER REESE FERRE EEE RAE ER ERE EEE EEE EEL ERES 
s TEST 16 TEST CLEAR ATTENTION BY MASSBUS INIT - DRIVE IN NEUTRAL 


HAVERIFY THAT MASSBUS CLEAR DOES NOT RESET ATTENTION BITS WHEN THE 


oi Whe oie ee De oe ie 3 


t 


5 RRRLES SERRE FRRRAE RARE SELLS LAA AELER ELAR ARAL ERLLE A ELLE ALLER ELER EL ERE EERE ; 


DRIVE IS IN NEUTRAL. 

SET THE ATTENTION BITS FOR BOTH PORTS. 

VERIFY THAT THE DRIVE IS IN NEUTRAL. 

ad A MASSBUS INIT. VERIFY THAT NEITHER ATTENTION BIT HAS 


benpeeennssnenesonsnseensnsseennsasssesnsssseensssseene 


SCOPE ;INITIALIZE JHE SCOPE HANDLER 
TST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
BEO es ;BR IF NOT 

BPL 1$ ;BR_IF JUST ENTERED TEST 

JMP EXEC RETURN & GET NEXT TEST NUMBER 
MOV #-1,KYBCTL ger SINGLE TEST INDICATOR 
MOVB #15,$TS ST 


TSTNM ‘TE 
MOV STESTIe, SLPADR ;LOAD LOOP ON TEST ADDRESS 
MOV sTESTIG, SLPERR ;LOAD LOOP ON ERROR ADDRESS 
MOV 4 STIMES 500 4 ITERATIONS 


Ei OF ’SCOPE’ SETUP - START OF MAIN TEST 


TESTI6: 
fp RRRERRAALAEAALE RELL REERELELAEE REA EEAELEL ELE RRA RLAL LE x LLRARERERERELLLELE 





;SET ATTENTION BITS FOR BOTH PORTS 


MOVB § PORTA,RHCS2(RO) ;SELECT PORT ’A’ 
MOV #-1 RHERL (RO) *FOR ERRORS 
CLR RHE 


1(RO ‘CLEAR THE ERRORS 

MOV PORTB RHCS2(RO) >SELECT THE OTHER PORT 
TST RHDS1{RO) “WAIT FOR DRIVE TO TIMEOUT 
BEQ 4 *BR IF DRIVE HASN’T TIMED OUT 
MOV #-1,RHERI(RO) FORCE ON PORT ’B’ 

RHERI (RO) ; CLEAR THE ERRORS 
MOVB TA RHCS2(RO) j CT “A” AGAIN 
TST RHDSI itro SWAT FOR DRIVE TO TIMEOUT 
BEQ BR IF DRIVE HASN’T TIMED OUT 
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4530 
$3 SHHEAAE SERA S RRRKRKERAS LER SELES ARAELA EERE REL AE AALAE ALS SSLLSEAL AERA ALELELES 
:CONFIRM THAT BOTH ATTENTION BITS ARE SET 
4534 023060 113760 001216 o90010 MOVB  PORTA,RHCS2(RO) ;SELECT PORT A 
Se Geen Geir, Gree ee eee ek POU Ee cae Amen MolcarOn 
4537 023100 016037 000012 001126 MOV RHDSI(RO),S$BDDAT’ :GET CONTENTS OF RHDS1 
1338 023108 12732 O01 001122 HOV ak 1, SBDADR sFORM REGISTER ADRESS OF ERROR MESSAGE 
4540 023120 012737 001124 MOV wAtA. SGDDAT ;WHAT REGISTER SHOULD 
4541 Oe3le6 013737 001126 001156 MOV SBDDAT, § “MOVE REGISTER CONTENTS TO ’STMPO’ 
Hove 022134 Der 3? 001156 BIC BtCATA,STMPO ;SAVE SPECIFIED BITS 
4543 023142 1124 001156 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
4544 de2150 ol 4 BEQ 64S iBR IF OK 
4545 1 13737 001126 001166 MOV SBDDAT,STMPY  :COPY "BAD DATA’ 
4546 023160 042737 001166 BIC #ATA, STMPY *CLEAR THE MASKED BITS 
7 523156 O37 37 001166 001124 BI STNP4, SGDOAT j OR WITH 000 DATA FOR TYPEOUT 
#43 023176 005137 001236 ate con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
4551 tese04 vicaeid 001236 2 Ts CKERR WAS TIN BIT FOR PORT A SET ? 
qees p5asi8 cede 024156 ae is ‘BYPASS REST OF TEST IF NOT 
4554 0232016 113760 001220 000010 MOVB  PORTB,RHCS2(RO) ':SELECT PORT B 
ysse Oeiee4 1 Ooi¢e0 001226 HOV PORTB,PTNBR ; MOVE PORT ADDRESS f° LOCATION FOR TYPEOUT 
Wee 023236 016037 le 001126 MOV RHDS1(RQ), SBDDAT. “GET CONTENTS OF RHDS1 
dees peases pense poole aan OD ARTS ADS som Ree oes. ob fe al seers ten 
4560 023256 012737 100000 001124 MOV #ATA.SGDDAT ;WHAT REGISTER SHOULD 
4561 O23264 013737 001126 001156 MOV s *MOVE REGISTER CONTENTS TO ’STMPO’ 
4562 Oese7e O04 001156 BIC #tCATA,STMPO ;SAVE SPECIFIED BITS 
4563 023300 023737 001124 001156 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
4564 023306 001414 BEQ *BR IF OK 
4565 023310 013737 001126 001166 MOV SBODAT,STMP4Y  ;COPY BAD DATA’ 
4bbe 023316 042737 i0 001166 BIC #ATA, STMPY *CLEAR THE MASKED BITS 
4567 023324 05.7 37 1166 00:124 BIS STHPA, SGDOAT jpOR ITH G000 DA A FOR TYPEOUT 
see EE 4 005137 001236 taal CoH CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
4571 5334 9 Dora? 001236 ao Tor CKERR WAS TIN BIT FOR PORT B SET ? 
to73 pea3c8 Spat 024156 hic is *BYPASS REST OF TEST IF NOT 
4575 8 5 RRA REE LER E RARE RELL RL RE ARERR EERE A ERK AREA AREA RARE ALAR RA RRR EL ARES 
i307 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
4579 023354 005037 odi24e CLR RELERR sCLEAR THE 'RELEASE ERROR ’ INDICATOR 
#580 023360 012737 000012 001122 HOV aRHDS SBDAOR sFORN, THE ADDRESS OF RHOS1 FOR TYPEOUT 
4582 53308 WTELES 11700 001124 MOV #111700,$GDDAT $COMPARSION cONeTAN pore 
4583 113760 1216 10 MOVB PORTA. RACS2(RO) ;SELECT PORT A. 
4€84 23408 16037 So00i< 001 ibe MOV RHOS1 RG) STMPe ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
SBS ’ 


2, STMPO “COPY IT INTO ’STMPO 
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DERPPA.P11 Tl TEST CLEAR ATTENTION BY MASSBUS INIT - DRIVE IN NEUTRAL 
MPG 


4386 besee Oe 490 490 00115 Bic BATALI, ST CLEAR PORT DEPENDENT BITS FROM THE COPY 
436 ts 5 11 oy FORTE, Reo Sr Pa ieee PORIVE VE STATUS REGISTER FROM PORT B. 
een pi 803¢ ute ppt Ted MOV gypes ere fad i nto Sih ri 
352 042737 100106 O01160 BIC #ATAIVY, STMPL T DEPE ENT BITS FROM THE COPY 
459 De s460 827 001156 OO1160 CMP STMPO, STMP1 ice THe st STATUS SPOT STER THE SAME FROM BOTH PORTS 7? 
45 1 SNE :BR IF 
4583 023470 005737 001156 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
ee ar ibe Bon Se toler 
7% 1 somal ERROR 46 * REPORT D IVE. NOT od NEUTRAL OR NOT SEIZED 
uege gS pease 001162 001126 66$: MOV <TnP2, SEDDAT err 3 POSSIBLE BAD DATA FOR ERROR MESSAGE 
4598 Oe3Sl2 013737 001220 001226 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
4599 Oe35e0 113760 001220 Oo00010 MOVB § PORTB,RHCS2(RO) ; SELECT PORT B. 
4600 023526 001156 TST STMPO jSEE IF STATUS EG O FROM PORT A. 
4601 OesS3e 001414 BEQ 675 IF ZERO 
4602 023534 013737 001216 001226 MOV PORTA, PTNBR :SEIZING PORT Fol ERROR TEST SHOUS DRIVE NOT IN NEUTRAL 
4603 O23542 013737 OO1164 OOlice MOV STMP3,S$BDDAT  ;’BAD DA TYPE OUT 
4604 113760 901216 000010 MOVB § PORTA,RHCS2(RO) SELECT PORT 
4605 023556 001160 TST STMP] SEE IF ere TUS” EQ ZERO FROM PORT B. 
4606 0236 1012 BNE 68S BR IF NO 
4607 O23564 012737 177777 001242 67%: MOV #-1,REL ERR *SET ’RELEASE ERROR’ INDICATOR 
4608 be3s72 012760 900014 000000 MOV fil’ "RHCSI(RO)  :CLEAR THE DRIVE 
4609 012760 000013 o00000 MOV #13;RHCSI(RO) RELEASE DRIVE 
4610 023606 104026 ERROR 26 ‘TYPE ERROR MESSAGE 26 
4611 023610 013737 001162 001126 68$: MOV STMP2,$BDDAT LOOK FOR BIT FAILURES WHEN RHDS1 READ 
ci ee Baer Bis ite =| Be Sdueicate fa ghrege SOE 
4614 ea rater BEQ B38 *BR IF OK FROM PORT A. 
4615 023634 104007 ERROR *REPORT ERROR 
4516 023636 013737 001164 001126 69$: MOV $THP3, SBODAT  ;CHECK RHDS1 FOR SIT FAILURES - FROM PORT 8. 
4617 Oe3644 01 001220 001226 MOV PORTB: PTNBR :CHANGE PORT NUMBER 
4618 023652 023737 O0112e4 001164 CMP SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT B. 
4619 023660 001401 BEQ ‘BR IF 
4620 Oe3b62 104007 ERROR REPORT ERROR 
4621 023664 000240 70S: 
“B22 Oe3666 005737 o0l1242 TST RELERR WAS DRIVE IN NEUTRAL ? 
4623 Oe267e 001402 BEQ +6 *BR IF IT WAS 
4624 023674 000137 Oe4156 $ OF 
SEES gs JS EE HEHE E HEHEHE ERE RAAAHEE HHH aaa 
“Bob *TSSUE THE MASSBUS INIT 
aes 023700 012760 oo0040 oD0010 MOV #CLR,RHCS2(RO) ;ISSUE A MASSBUS INIT 
4630 s o LEKKKARERELERARALEEEAAA A AARERERAAA RARER E LA RARER LAL AA ERA EA ALARA HA EESE 
4631 *CHECK THE ATTENTION BITS OF BOTH PORTS 
4E35 023706 113760 001216 op0010 MOVB- PORTA, Buse RO) -SELECT PORT 
4634 023714 013737 001216 OOl226 MOV PORTA,PTNBR ;MOVE PORT aboRese TO LOCATION FOR TYPEOQUT 
4635 Oe3722 005037 001236 CLR CKERR’ sCLEAR THE *CHECK ERROR’ INDICATOR 
46365 ae 016037 O00012 001126 MOV RHOS1 (RQ) ress! “GET CONTENTS OF RHDS1 
4637 023734 012737 O000le OOllee MOV 1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
4638 bes7e 1 ADD RO RO $80 “ADD RH11 BASE ADDRESS 
4639 012737 1 001124 MOV sata, SGDDAT wi REGISTER SHOULD BE 
4640 023754 013737 001126 001156 MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO *STMPO’ 
4641 023762 042737 077777 001156 BIC #tCATA, STMPD SAVE SPECIFIED BITS 
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ON BY MASSBUS INIT - DRIVE IN NEU 
CMP SGDDAT , STMPO ;COMPARE THE BITS 


z1$ BR IF OK 
MOV SBDDAT,STMP4 COPY "BAD DATA’ 

BIC #ATA, STMPY *CLEAR THE MASKED BITS 

PIS STNP4, SGDOAT ; OR” WITH DATA FOR TYPEOUT 


a 1 
= con CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
" MOVB ~=s- PORTB,RHCS2(RO) ;SELECT PORT B 
PORTB,PTNBR ; 


MOV MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR ERR sCLEAR THE ’CHECK ERROR’ INDICATOR 

MOV RHDS1(RO),$BDDAT’ ;GET CONTENTS OF RHDS1 

MC #RHDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAG 
ADL RO “ADD RH11 BASE ADDRESS ; 
MOV #ATA.SGDDAT ;WHAT REGISTER SHOULD BE 

MOV DAT, $TMPO MOVE REGISTER CONTENTS TO ’STMPO’ 


$80! . 
BIC #tCATA,STMPO ;SAVE SPECIFIED BITS 
CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
BEQ 725 BR IF OK 

MOV SBDDAT,STMP4Y  :COPY *BAD DATA’ 
BIC #ATA, STMPY “CLEAR THE MASKED 


BITS 
BIS STMP4, SGDDAT ;7OR’ WITH GOOD DATA FOR TYPEOUT 
ERROR 51 ; TYPE MESSAGE S1 


COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
723: NOP 
1S: 
;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB SERFLG ;DID AN ERROR OCCUR ? 
BEQ TST1? >:BR IF NOT 
BIT #SW09, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
BEG ST --BR IF NOT 
CLRB © SERFLG ‘CLEAR THE ERROR FLAG 
CLR STIMES “CLEAR THE MAX ITERATION COUNT 
IMP JSLPERR *GO TO THE LOOP ADDRESS 


s LLL ALA ALAA LE RALA LALLA LL AA LALA RELA LE LA LE LAAALALALARALELAELLE 


pHTEST 17 TEST SEIZE BY RHCS1 READ THROUGH PORT ’A’ 
j EVERIFY THAT READING THE CONTROL REGISTER (RHCS1) SEIZES THE DRIVE. 


*%# A. READ THE CONTROL REGISTER (RHCS1) THROUGH PORT ’A’; VERIFY THAT 
: THE DRIVE IS SEIZED. . 


B. ISSUE A RELEASE COMMAND THROUGH PORT ’A’; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


re 3 
jLIteHHEREEERESERELEEDEEOUHESEOOELEROOEOHEEEERUOHORIOUEEEROOOE 
, sINITIALIZE THE SCOPE HANDLER 


# 
# 
* 
% 
* 


ist KyBCTL i PERF ORNING ONLY SINGLE TESTS ? 
BPL 1$ *BR IF JUST ENTERED TEST 


JMP EXEC ;RETURN & GET NEXT TEST NUMBER 















» DUAL _CONTROLLER LOGIC TEST = PART 1 
TEST SEIZE BY RHCS1 READ THROUGH PORT ’ 


MACYLI e7 (732) 
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Phehohah-t-ial-b-5-4-4-5-hleh Shah halal S-5-5-b-teh-b-tahch bth tt Stale lelalahalalalalalalalel halalalaleleldlalalalalelelalalel 
*SCOPE’ SETUP - START OF MAIN TEST 


sCLEAR ATTENTION BITS FOR BOTH PORTS 
PORTA, RHCS2(RO) 
sya est 


88888 
sacl 
GJ ro 


8 


RO) 
Hak RHCS2( RO) 
RHOS TRO) 


Bee 
Wer 


S ieaaeaeatiapeineeianadenenatastinianimanatianseiiaientiniaanainias 
;SEIZE THE DRIVE THROUGH PORT A 
PORTA, PT Cs 


aS 
rar 
furu 
mee 
oo 


8 


RHCS1{RO 
PORTE’ RHCS2(RO) 


S598 
bo hes 
roruro 


-_— 
be 


8588 
Bdeasas 
Soe 
3S PPEREsEsS 


$ 
PORTA, RHCS2( RO) 


Sr 
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< 
ee 
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S888 
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55 ARIE HEHEHE HEHEHE RHEE RE EER RHEE EE REE EER RARE EERE REE R REE 
;RELEASE THE DRIVE FROM PORT A 
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iTEsr ote TEST INDICATOR 


;LOAD LOOP ON TEST ADDRESS 
L D LOOP ON ERROR ADDRESS 
;;00 4000. ITERATIONS 











;SELECT_ PORT #A 
EIZE THE 






39 THE DRIVE 
;1SSUE DRIVE CLE 
;RELEASE THE DRIVE 





#8 
THE DRIVE THROUGH PORT ’B’ 
TISSUE DRIVE CLEAR 
RELEASE THE DRIVE 









“SELECT PORT A 
Ys SEIZING PORT’S ADDRESS 


RHCS1 
SELECT PORT B 
Dove T ADDRESS TO LOCATION FOR TYPEOUT 
YF OPPOSITE” PORT ADDRESS 
-SEE IF DRIVE SEIZED BY PORT A 


ll 

'GENERATE BAD REGISTER ADDRESS 

REGISTER SHOULD BE ZERO 

*15 THE REGISTER ZERO 

:BR IF IT IS 

‘REPORT THE ERROR 

‘BYPASS REST OF THE SUBTEST 

ie ereeT p PORT 

vi PORT ae S TO LOCATION FOR TYPEOUT 
viene IF SEIZING rep statis STATUS 


nUSe &o0p BA 
SE ONPLEMEN Nt THE EXPECTED STATUS 
SAVE THE RCTURL STA Tus 
ae Da 
THE EXPECTE STATUS BITS SET ? 


;BR_IF T 
;REPORT THE ERROR 













ee ee - 
| 
} 
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4808 025070 
025074 
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TEST SEIZE BY RHCS1 READ THROUGH PORT ’ 


Tl? 


gies 


Soe SSu0Sse2888 
Sfeteystetstet=totete 
Fe tuoSuuesy 


gs 
i 


8 


oH [bee 


001103 


000010 


oodo6e 


001122 
001124 


001160 


001126 


COO 
000000 


001126 
001226 
001162 


001126 
O01ee6 
001164 


64S: 


6S$: 


66$: 


678: 


MOVB PORTA,RHCS2(RO) ;SELECT PORT 
MOV PORTA: PTNBR sHOVE PORT AD ress] CATIO 10H FOR TYPEOUT 
MOV #13,RHCS1(RO)’ SSUE RELEASE TH ob ‘ PORT A 


:VERIFY THAT THE DRIVE IS IN NEUTRAL 
CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 
MOV #RHDS1,SBDADR  ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
ADD RO, SBDADR °ADD THE 1/0 BASE ADDRE 

MOV # Gata ee AD) set CY or’ -COMPARISON CONSTANT 


MOVB pone RHCS2(RO) 
THE DRIVE, Bd REGISTER FROM PORT A. 


Payne 


MOV DS1tRO).S$TMPe : 
MOV erHeS aay t opy IT INT 
BIC WATA'VV,STMPO  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 


MOVB PORTB, RACS2(RO) s SEL LECT PORT 

MOV RHOSi(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT 8. 

MOV STMP3, STMPL :COPY IT INTO ’STMP1’ 

BIC #ATANVV.STMP1 :CLEAR PORT SE PENDENT BITS FROM THE COPY 

chp SHPO, StHP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
Ist STHPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 

ERROR 46 REPORT T DRIVE NOT IN NEUTRAL OR NOT SEIZED 

IMP :BYPASS THE REST OF THE CHE 


68$ 
MOV STMP2, SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR ; SEIZING al IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB  PORTB,RHCSe(RO) ;SELECT PORT 
TST STMPO ;SEE IF STATUS EQ O FROM PORT A. 


65$ :B ZERO 
MOV PORTA, PTNBR SEIZING PORT IF TEST Pos barve NOT IN NEUTRAL 
MOV $TMP3, $BDDAT ;’BAD i rk R ERROR TYPE OUT 
MOVB CORT RHCSECRD) ; SELECT 
TST STMP1 ; SEE IF STATUS EQ ZERO FROM PORT B. 


BNE 66$ 

MOV #-1,RELERR Serr GL EAS ERROR’ INDICATOR 

MOV #11;RHCSI(RO)  ;CLEAR THE DRIVE 

MOV #13, RHCS1(RO) js THE DRIVE 

ERROR e6 ;TYPE ERROR MESSAGE 26 

MOV S$TMP2, SBODAT LOOK FOR BIT FAILURES WHEN RHDS1 READ 
MOV PORTA, PTNBR ;CHANGE PORT alas 


CMP $GODAT, STMP2 ;ALL BI 

BEQ 67s "BR IF OK FROM PORT A. 

ERROR REPORT E 

NOV $THP3, SBDDAT  :CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
MOV PORTE. PTNGR. se PORT NUMBER 

CHP GDOAT, § SEE IF READ OK FROM PORT B. 

ERROR - | ea ERROR 

NOP 


;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 


TSTB = SERFLG ;DID AN ERROR OCCUR ? 
BEQ TST20 ;;8R IF NOT 
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025076 
025104 


PRADO 
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Tl? 
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3S 
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TEST SEIZE BY RHCS1 READ THROUGH PORT ’ 


001000 


91103 
B1iS3 
153766 


001266 


000013 


001220 
pea 
0000 

001216 


177570 


001266 


10 
001170 


000010 
000000 
000000 
000010 
000000 
000000 


000010 
001230 


000010 


BiT #SWO9, SWR ;SEE IF LOOP ON ERROR SET (SWR9=1) 
BEQ TST20 


CLRB = SERFLG Ar eAR THE ERROR FLAG 
ELR STIMES CLEAR THE MAX RERES ION COUNT 
IMP JSLPERR ‘GO TO THE LOOP ADDRESS 
bereeT On TEST CEIZE BY Bical READ TUROUCH PORT a 
xTEST 20 TEST SEIZE BY RHCS1 READ THROUGH PORT ’B” 


entry THAT READING THE CONTROL REGISTER (RHCS1) SEIZES THE DRIVE. 


:* A. READ THE CONTROL REGISTER (RHCS1) THROUGH PORT 'B’; VERIFY THAT 
i THE DRIVE IS SEIZED. 
:* B. ISSUE A RELEASE COMMAND THROUGH PORT 'B’; VERIFY THAT THE DRIVE 
4 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
LgeSSeAEEHEERNERORESHOEOREREREDERESEEHEREREDOSIRENDONRRREROOONES 
"SCOPE ; INITIALIZE THE SCOPE HANDLER 

TST KYBCTL PERFORMING ONLY SINGLE TESTS ? 

BEG es :BR I 

BPL 1$ ;BR_IF JUST ENTERED TEST 

JMP EXEC RETURN & GET NEXT TEST NUMBER 
1$: MOV Ha KYBCTL SET SINGLE TEST INDICATOR 
es: MOVB ; TEST NUMBER 


$TSTNM 
MOV areata, SLPADR LOAD LOOP ON TEST ADDRESS 
MOV #TEST2O.SLPERR ;LOAD LOOP ON ERROR ADDRESS 
MOV #4000. ,$TIMES  ;;D0 uboo. PORATION 


13H HEHEHE EEG 
SEND OF *SCOPE’ SETUP - START OF MAIN TEST 


TEST20: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB = PORTA, RHCS2(RO) i SELECT PORT #A 
CLR RHDS1(RO) *SEIZE THE DRIVE 
MOV #11,RHCS1(RO) ; ISSUE DRIVE CLEAR 
MOV #13 RHCSI(RO) RELEASE THE ORI VE 
MOVB  PORTB,RHCS2(RO) ;SELECT PORT 
RH 1 ) *SEIZE THE DRIVE THROUGH PORT ’B’ 
MOV #11,RHCS1(RO)  $ISSUE DRIVE CLEAR 
MOV #13;RHCSI(RO) | ;RELEASE THE DRIVE 


55 FEE AEE SEE EE EEE AEE EEE EEE AEE ESE IEEE EE EEE AE SERRE EEE EE 
;SEIZE THE DRIVE THROUGH PORT B 


MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
Noy PORT } SEIZ ZPT ;STORE SEIZING PORT’S ADDRESS 


HCS sR 
MOVB PORTA,RHCS2(RO) SELECT PORT A 
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0 TEST SEIZE SY RHCS! REGD THROUGH PORT ’B 

4866 025300 013737 01216 01226 MoV PORTA,PTNBR ;MOVE PCRT ADDRESS TO LOCATION FOS TYPEGUT 
486? 925306 bi 3. 7 001216 OOle32 MOV PORTA’ OPPRT OPPOSITE’ PORT ADDRESS 

025214 016037 O000ie 601126 MOV RHDS1[RO),SBODAT’ ;SEE IF DRIVE SEIZED BY PORT 8 
4865 Oe33eF 10037 ool iee MOV S8DADR sRH11 BASE ADORESS 
a5 236 37 6OC00le 6001122 ADD 8RHDS1,$80ADR  :GENERATE BAD REGISTER ADDRESS 
4871 625334 905037 901124 CLR $CODAT :REGISTER SHOULD BE ZERO 
487 DeSs40 3527 ? O0l!e4 o01125 MP $GDDAT,SBDDAT :15 THE REGISTER ZERO 
487 14 BEO +10 :BR IF IT! 
4874 025350 104004 ERROR 4 REPORT THE ERROR 
4875 seo 060137 IMP 1$ :BYPASS REST OF THE SUSTEST 
4876 1] l 090010 MOVB = PORTB, RHCS2 “SELECT PORT 8 
4877 025364 913737 001220 901226 MOV PORTB.PTNBR -MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4878 925372 O16037 000012 O01126 MOY RHOSI{RO),SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
4679 025400 bie?37 911706 601124 MOV SMOL'PGM'OPRIDRY!VV S$GODAT ;EXPECTED STATUS 
4899 Bes40e 13757 001124 OO1i60 MOV $GDOAT,STMP1 ;USE GOOD DATA’ AS A MASK 
4881 1% 905137 001160 COM SIMPL ;COMPLEMENT THE EXPECTED STATUS 
4B8 025420 013737 OO01126 001156 MOV SBDDAT,STMPO SAVE THE ACTUAL STATUS 
4883 925456 043737 O01160 001156 BIC STMP1. $TMPO :CLEAR UNWANTED BITS gaat 
4884 O25434 023737 901124 OOLISE CMP SGODAT,STMPO = : ARE THE EXPECTED STATUS BITS SET ” 
wees Oes4¥2 001401 BE +4 *BR IF THEY ARE 
yse6 Oes444 104005 ERROR S ‘REPORT THE ERROR 
sss 5 RRESESRESSSFSESESE SAE SESEELELEEL ALLL LES EEAELEL SLES ESTATE ELT LESS LLEES 
ma sRELEASE THE DRIVE FROM PORT B 
“B52 O25446 113760 001220 0900010 MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
4893 025454 013737 O01220 001226 MOV PORTB;/PTNBR ; PORT ADDRESS TO LOCATION FOR TYPECUT 
yee Ses4s2e 912760 900013 000000 MOV $13,RHCSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 
aes sVERIFY THAT THE DRIVE IS IN NEUTRAL 
iE38 025470 005037 o01e42 CLR LERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
“B99 025474 012737 O000l2 oOl122 MOV Rerpe SS0ADR :FORM THE ADDRESS OF RHDS1 FOR TYPEOLIT 
4900 o2S502 001122 ADD RO GADD THe 1/0 BASE ADDRESS 
4991 025506 012727 911700 001124 MOV sMOL!PGM!DPR!DRY!VV,$GDDAT _;COMPARISON CONSTANT 
4992 925514 113760 00 1g 0 MOVE §§ PORTA. RHCS2(RO) j SELECT PORT’ A. 
4903 25522 01 1 1162 MOV RHDS1(RO),$TMPe ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
4804 025530 013737 O01162 001156 MOV STMP2, STMPO sCOPY IT INTO °STMPO’ 
430 pesos Oe? 400100 00115 BIC BATA! VV STtPO *CLEAR PORT DEPENDENT BITS. FROM THE COPY 
4956 11 1220 90001 MOVB §PORTB,RACS2(RO) ;SELECT PORT 8. ; 
4997 besebe 016037 O000i2 001164 MOV RHDS1(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT 2. 
4908 01373? 001164 001160 MOV STMP3, STMP1 COPY IT ANT *STMP1? 
4909 025566 042737 490100 001160 BIC BATA'VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
4910 025574 023737 O011S6 OO01160 CMP STMPO, STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
491) OG25602 001006 BNE b4s :BR IF NOT 
4912 O2S604 005737 O01156 TST TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
4913 025610 O0104S BNE 66S :BR IF NO 
4914 Oe56 104046 ERROR 46 ‘REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
4915 025614 1 MP £83 *BYPASS THE REST OF THE CHECKS 
cats Geseee Glarg, Geites Mauuee OS: BY eRe RM | EBeatnc PORIR Gear Suds UnEaE Nok AN NeuTeL 
4918 O25634 11 1555 ueatta MOVB  PORTB, RHCS2(RO) eel ea PORT B. 
4919 O2S5642 005737 OOLISE TST STMPO *SEE IF STATUS EQ O FROM PORT A. 
4920 25646 DoL14 BEQ 65S “BR IF ZERO 
492; Oe5650 013737 o01216 001226 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 








TEST SEIZE BY RHCS1 READ THROUGH PORT 


26 MUV STMP3, SBDDAT ; BAD pare FOR ERROR TYPE OUT 
10 pove PORTA, ,RHCS2(RO) ;SELECT PORT 


4$22 OeSéS6 O13 
; SEE F SraTUS. EG ZERO FROM FORT @. 


4Se3 OeS664 


oo 
oO 
—Fus- 
See wn 
o£ 
gs Hi 


rs 
1, RELERR 


&s$: SET 
MOV sii "RHCSI1(RO)  ;CLEAR 


ay oe 3 
i? 

me 

5 

3 

3 


222 
" 
8 
4 
Oo 


NOT 
"RELEASE ERROR’ INDICATOR 
THE DRIVE 
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DERPPA. 720 9’ 
ot 
4928 b38r14 090000 MOV 813; RHCS1(RO) ;RELEASE THE DRIVE 
- 104026 ERROR 26 ;TYPE ERROR MESSAGE 26 
4 b13732 OOlIG2 OO1126 66S: MOV STuPe, $8008T "LOOK FOR BIT FAILURES WHEN RHOSL READ 
4931 13737 OO0l2i6 OO0lec6 MOV PORTA’ PTNSR CHANGE PORT NUMGER 
023737 OO0lle4 O011&2 CMP ScODAT, STMP2 ALL BITS OK ? 
4933 02574 90140 SEQ bs *BR IF OK FROM PORT A. 
4934 be5750 ToMoO? ERROR :REPORT ERROR 
4535 013737 OO1164 001126 67%: MOV STHP3, SBODAT § ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
4 025760 013737 001220 odOl2c6 MOV PORTB: PTNBR ‘CHANGE PORT NUMBER 
4 025766 623737 001124 O01164 CMP SGDDAT,STMP3  :SEE IF READ OK FROM PORT &. 
4938 025774 001401 BE 68$ BR IF OK 
4939 025776 104007 ERROR :REPORT ERROR 
4940 026000 o00240 68S NOP 
yous oe00e 
4Qu3 :IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
| aaue N2e002 105727 901103 TSTB SERFLG ;DID AN ERROR OCCUR ? 
| 4946 025006 001422 BEQ TST21 :-BR IF NOT 
4947 026010 032e737 001000 177570 BIT #SW09, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
| 488 026016 001406 BEQ TSTel ;:BR IF _NOT 
| 4849 026020 105037 001103 CLRB = SERFLG :CLEAR THE ERROR FLAG 
| 4950 926024 005037 001170 CLR STIMES *CLEAR THE MAX ITERATION COUNT 
ped 026030 000177 153054 IMP aSLPERR *G0 TO THE LOOP ADDRESS 
4853 
| ests rerecT OL TEST PORT REQUEST’ FROM PORT aS 
| uae T 2l TEST ‘PORT REQUEST’ FROM PORT ’A’ 
i 
| 4957 oS cnapy THAT WRITING A DRIVE REGISTER S SETS ’PORT REQUEST’ WHEN THE 
ieee i DRIVE IS SEIZED BY THE OTHER POR 
| 4360 ;# SEIZE THE DRIVE THROUGH PORT ’°B’ BY WRITING O0’S INTO RHDS1. 
| 4962 t# WRITE 0’S INTO RHDS1 FROM PORT °A’; VERIFY THAT THE DRIVE IS STILL 
| 4963 ii SEIZED BY PORT ’B’. 
Wace *# C. ISSUE A RELEASE COMMAND FROM PORT 'B’ AND VERIFY THAT THE DRIVE 
mee + SUI TCHED TO PORT 'A’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
| 4967 ii PORT 'A’ AND IS NOT SET FOR PORT ’B’. 
wees *# OD. ISSUE A RELEASE COMMAND THROUGH PORT 'A’ AND VERIFY THAT THE ORIVE 
4270 r RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
' ios SUTETITTTTTTTTET TTT TT TT TTT TTT TT TTT TTT TT TTT T TT TTT TTT Ts 
| 4673 026034 tsTel: 
| 4974 O26034 ppp994 SCOPE sINITIALIZE THE SCOPE HANDLER 
' 4975 026036 005737 001266 TST KYBCTL "PERFORMING ONLY SINGLE TESTS ? 
4576 O26042 001406 BEQ 2s °BR IF NOT 
4977 026044 00002 BPL : ie BR IF JUST ENTERED TEST 








ee ee ne ee ee RS SS 


ssisistsisittee 
WONWUI£C WMO 


RiSSriniisl layin si 


immo |B 
REERERES 5 
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TEST "PORT REQUEST’ FROM PORT ° 
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000137 ce IMP EXEC “RETURN & GET NEXT TEST NUMBER 
Ole73? i 777? OO1266 1S: MOV 8-1, KYBCTL SET SINGLE TEST INDICATOR 
hers? 09 oe} 091102 2: MOVE . aSTonn TEST NUMBE 
12737 pot 051106 MOV atestel SLPADE "LOAD LOOP ON TEST ADDRESS 
Ole737 O26110 902110 MOV STESTCl'S$LPERR :LOAD LOOP ON ERROR ADDRESS 
Oie737 007649 001170 MOV #4000. 1 TIMES ;;D0 uboo. ITERATIONS 
S SERSESPERSLESLAASSSSERELERESELELRA LAA ALAS LALSSELEFSAFASLSFLELFE FS LEEALAS 
END OF *SCOPE’ SETUP - START OF MAIN TEST 
TESTel: 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
113760 001216 000010 MOVB PORTA, RHCS2(RO) ;SELECT PORT #A 
900012 CLR RHDS1 (RO) -SEIZE THE DRIVE 
012760 000011 oop000 MOV #11,RHCSI(RO) ISSUE DRIVE CLEAR 
012760 0900013 oo0000 MOV $13,RHCS1(RO)  SRELEASE THE DRIVE 
113760 O01220 O00010 MOVB § PORTB,RHCS2(RO) ;SELECT PORT #8 
005060 o000!e2 CLR RHDS1 RO) *SEIZE THE DRIVE THROUGH PORT ’8’ 
012760 090011 oo0c00 MOV 1,RHCS1(RO)  SISSUE DRIVE CLEAR 
Cie760 000013 MOV 113" RHCS1(RO) RELEASE THE DRIVE 
ss SEFKES RFK AFESELE HELLER L ERE SRE ES ELE FEAR ALPLESEEAEELS SS oF FESFEKPLELRAESFS 
;SEIZE THE DRIVE THROUGH PORT B 
113760 001220 000010 MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
013737 O0lee0 001236 MOV PORTB, SEIZPT s STORE SEIZING PORT’S ADDRESS 
005060 CODDl2 CLR RHDS1{RO) sWRITE RHOS1 
013737 O0l2e16 o01222 MOV PORTA, OPPR : OPPOSITE’ PORT ADDRESS 
Bs 001216 OO00i0 MOVB  PORTA;RHCS2(RO) ":SELECT PORT 
13737 O0le16 OOl2c6 MOV PORTA; PTNBR “Move PORT abbRese TO LOCATION FOR TYPEOUT 
g2 ELEEREELSERERAEERSEFESREREX ELE RLS SELLS HE FLER LFEPA RRE STH ELHSSEREERE LESSEE 
} :SET PORT REQUEST 
oosoeo ocoole CLR RHDS1 (RO) ;SET PORT REQUEST FOR PORT A 
pt-pt ect taal 
'RELEASE THROUGH PORT B. DRIVE SHOULD SWITCH TO PORT A 
sRELEASE THE DRIVE FROM PORT B 
113760 001220 000010 MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 
013737 001220 001226 MOV PORTS; PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012760 000013 ooc0dd0 MOV #13,RHCSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 
VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT 8 
005037 001242 CLR RELERR j CLEAR "RELEASE ERROR’ INDICATOR 
bie? 37 111700 D0 1124 MOV #ATA! MOL !PGM! DPR! DRY! VV, SGDDAT ; COMPARISON CONSTANT 
12737 l2 OOlie2 MOV #RHDS1,S$BDADR ;REGISTER ADDRESS INCREMENT 
060037 O01l22 ROY SB08DR sREGISTER BASE ADDRESS FOR TYPEOUT 
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*PORT REQUEST’ FROM PORT ’ 


888 8888 83 
Dee RRR RR 


64S: MOV 


65S: 


MOV 
BIC 
CMP 

Q 
MOV 
BIC 
BIS 
ERROR 

OM 


C 
66S: NOP 
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DERPPA.P1l =’ T2l TEST 
Se ne Bi 
en3e Tse 001S20 
5039 O263%6 016037 
Boiss 
031 
couy 
| 
| 
| 
| 


PORTA,RHCS2(RO) SELECT PORT ef 

PORTA;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

R051 (RO), $ sro sREQD STATUS REGISTER FROM PORT A 

P Races (RO 

PORTS, PTNBR ROhove'e PORT ADDRESS 10 LOcATroN FOR TYPEOUT 
RHOS1[RO), ss0bAT aiPRiVE STATUS FROM PORT 

64S TATUS PRON PORT B ZERO 

STMPO 1S STATUS FROM PORT A ZERO 


64S 
31 REPORT ORIVE IN NEUTRAL 
STMPO, SBDDAT ; CHECK STaTU FROM PORT A 
PORTA, PINGR : CHAN T ADDRESS FOR TYPECUT 
pat, $BDDA i COPF ORE, WITH CONSTANT 
27 "REPORT REGISTER ERROR 
PORTB,RHCS2(RO) ':SELECT PORT B 
PORTE, ;PTNBR =; MOV PORT. ESS TO LOCATION FOR TYPEOUT 
CKE ak exeie! "Cc CHECK K_ ERROR INDICAT 
part $BDADR FOR aie BopReee Boo3 ERROR MESSAGE 
RO SBOADR Ss 
T THAT Reed EER ER SHOULD 


$ D BE 
SBDDAT , STMPO “MOVE REGISTER CONTENTS TO ’STMPO’ 


Soon SIneO SAVE  Sorbene TED. Bis 
SE0AT, S71 STMPY Cory PY 3D pare’ 


sTHP4 ScOoAT ; OR WITH GOOD BARA "Po TYPEOUT 
oe : ay ete REGISTER COMPARE ERROR INDICATOR 


PORTA, RHC 7; T 
PORTA; PT nove BORT "eDORESS T0 LOCATION FOR TYPEOUT 
CKERR’ ’ INDICATOR 


;CLEAR T 
arhG31 Sa0FOR sspoar’ ;GET CONTENT S OF ROS 
;FORM REGISTER races” ERROR MESSAGE 


BBeoo; 


math, M wi ReGl GIStER CONTENTS TO *STMPO’ 
teats cee sive Specie feb effs 

2 ala ‘BR RIF O Ke 

SBDDAT,STMPY  :COPY ’BAD DATA’ 

SATA, STMPY CLEAR MASKED BITS 

STMP4,SGDDAT  ;'OR’ WITH GOOD DATA FOR TYPEOUT 

16 TYPE MESSAGE 16 

CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


55 Ae gk bE HE EE EEE SE EEE HEE SHE HEHEHE REE 
;RELEASE THE DRIVE FROM PORT A 


MOVB 
MOV 


PORTA,RHCS2(RO) ;SELECT PORT 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
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RPOY QUAL CONTROLLER LOGIC TEST = PART 1 ante 27(732) 
TEST “PORT REQUEST’ FROM PORT ” 


67$: 


685: 


69S: 
70$: 


718: 
18: 
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MOV #13,RHCSI(RO)  ;ISSUE RELEASE THROUGH PORT A 
; VERIFY THAT THE DRIVE IS IN NEUTRAL 


RELERR sCLEAR THE 'RELEASE ERROR ’ INDICATOR 
MOV S1,S$BDADR FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
ADD RO jAdo THE 1/0 BASE ADDRESS 

MOV eMOL!P Pare DERE ORY! Scv0RT i GOMPARISON CONSTANT 


MOVB PORTA RHCSECRD) SELECT POR 
MOV RHDS1{RO) HE SRIVE STATUS REGISTER FROM PORT A. 
MOV STMP NTO *STMPO? 





2, $T Tre0, 18 
BIC BATA! VV, STMPO s CLEBR ORT DEPENDENT BITS FROM THE COPY 
MOVB PORTB,RHCS2(RO) ; 
MOV RHDS1(RO) STH Sit OR Ive, STATUS REGISTER FROM PORT 8. 
MOV STMP3, STMPL 
BIC BATA'VV. STMPL SEPENDENT BITS FROM THE COP 
CMP STMPO, STMP1 a THE Pr ATE REGISTER THE SAME FROM BOTH PORTS ? 
aye STMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 69S :BR if T 
ERROR 4 ?REPORT DRIVE NOT or te cnet OR NOT SEIZED 
MOV Stipe, SBODAT Poe REP E BAD 


IZING P j IF TEST SHOWS. DRIVE ONOT TN NEUTRAL 

ett RHCEECRO) T B. 

ie SEE IF STATUS EQ O FROM PORT A. 

HOV Feira, orien Be, ING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;’BAD DATA’ di. ERROR TYPE OUT 

MOVB  PORTA,RHCS2(RO) ;SELECT PORT 


es hg 1 SEE “IF STATUS, EQ ZERO FROM PORT B. 
MOV #-1 ,RELERR T *RELEASE ERROR’ INDICATOR 
MOV sil" »RHCS1(RO) ln THE DRIVE 


MOV #13,;RHCSI(RO)  ;RELEASE THE DRIVE 
ERROR TYPE ERROR MESSAGE 26 
MOV STMP2, SBDDAT sLOOK FOR OY FAILURES WHEN RHDS1 READ 


MOV PORTA, PTNBR :C 
CMP SGDDAT,STMP2 § ALL BITS OK ? 

BEQ 70$ *BR IF OK FROM PORT A. 

ERROR 7. ‘REPORT ERROR 

MOV STMP3,SBDDAT | ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
MOV PORTB.PTNBR : CHANGE 

CMP SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT B. 

BEQ 71S *BR IF OK 

ERROR ? *REPORT ERROR 


;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 





TSTB  SERFLG ;DID AN ERROR OCCUR ? 
BEG TST2e +s NOT 

BI #SWO9, SWR *SEE IF LOOP ON ERROR SET (SWR9=1) 
BEQ TST2e * 3B NOT 

CLRB  SERFLG CLEAR THE ERROR FLAG 









btaePa.Pii 






0+ 0 -—b-- B= 


ew Ate oT ee AL et et 


HO a aaa aa) 
BIL SSBURKRPSH-BIaNaadZIn-s 


eb — B= 0 & + b= Fb 0 = BP = = 6 F< = 8 8 9 2 = 2 8 Bb -*  ~ 2 b-2 <> 0 0 2 he eh 0 8 8-8 2 hm Ho pe 





BSGBVRRE 


we 
8 
3 


| 
! 
| 
| 
| 


sssabsacasiaiaeitesiiealimeancndamebanbieies 





SF 
RS 


= 


oo00roO 
RRAAR 


313760 


027230 005037 001170 
oe7e34 000177 181650 


— — 
Tw rT 
pepe ess Veg at ars 
tor-fuesee— roe 


000010 





» ROY QUAL -SguTRS babR BOG AE] ae pert 4 frcvas 27(732) O4-CCT-76 10:31 PAGE iil 


ORT 
CLR STIMes ;CLEAR THE MAX ITERAT gn COUNT 
JMP aSLPERR :G0 TO THE LOOP ADDRE 


fob-55-5-iah$-delahaelelgh-14-4-inh-5-4-1-tah--1-4--4-tah-£4-Solah-+-4-5 th b-t elelelalaelelalalehlelalaieelel 
s¥TEST é2 TEST PORT REQUEST FROM PORT 'B’ 


HAVERIFY THAT WRITING A DRIVE REGISTER Ne ’PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT 


SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RHDS1. 


rT ee pon pte a FROM PORT °B’; VERIFY THAT THE DRIVE IS STILL 


@ > 


HED TO PORT ’B’. VERIFY MB ey ATTENTION BIT IS SET FOR 
*B’ AND IS NOT SET FOR PORT ’ 


ISSUE A RELEASE COMMAND THROUGH PORT °B’ AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


77 ape coer: mies soRpreen anos Raeeie ae eerapaea Rts eeacmair 


2 
i a REL EROS COMMAND FROM PORT_’A’ AND VERIFY THAT THE DRIVE 
T 


ee ee ee eee 
o Oo 
- 
w 
“> - 


mee ee we we ee es eset ee ee wees es eeeee 


Score ; INITIALIZE THE SCOPE HANDLER 
ST KYBCTL ; PERFORMING ONLY SINGLE TESTS ”? 
BEQ es IF NOT 
BPL 1$ BR IF JUST reReD TEST 
JMP EXEC RETURN & GET NEXT TEST NUMBER 
1S: MOV #-1,KYBCTL ;SET SINGLE TEST INDICATOR 
es: MOVB TST ; TEST 


: NM 
MOV #TEST22,SLPADR :LOAD LOOP ON TEST ADDRESS 
MOV STEST22,SLPERR LOAD LOOP ON ERROR ADDRESS 
MOV #4000. ,$TIMES ;;D0 4000. ITERATIONS 


H 5 RERELHLASELALLLSALAALLS ALA LLLER LALLA ELLA ELAS RASA ERLE LEER EASE AEE ES 
“END OF *SCOPE’ SETUP - START OF MAIN TEST 
TEST22: 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, RHCS2(RO) s SELECT, PORT im 
RHDS1 (RO) :SET wae 
MOV #11,RHCS1(RO) SPECtE On CLEAR 
MOV #13;RHCSI(RO) RELEASE THE DRIVE 
MOVB PORTB,RHCS2(RO) ; SELECT PORT #3 
CLR RHDSi (RO) SEIZE THE DRIVE THROUGH PORT ’B’ 
MOV #11,RHCSI(RO) ISSUE DRIVE CLEAR 
MOV #13,RHCS1(RO) RELEASE THE DRIVE 
fp RERRRARE AERA A REESE ERALALA LAE RA LAERALE REE LARA LARA AAA LAE LALLA EAALAREE 
;SEIZE THE DRIVE THROUGH PORT A 


MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
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MOV PORTA,SEIZPT ;STORE SEIZING PORT’S ADDRESS 
CLR RH HOSLIRO) sWRITE R 

MOV PORTB, OPP ; OPPOSITE? PORT ADDRESS 

MOVB = PORTB; gece CRO) SELECT 

MOV PORTS,PTNSR ;MOVE PORT AbORESe TO LOCATION FOR TYPEOUT 


Sie Tae a ene es ee ee 
;SET PORT REQUEST 


CLR RHDS1(RO) ;SET PORT REQUEST FOR PORT B 


. © RESELLERS RAEAA RE SSAALE RELEASE FEL AEA ELLA LELE REAELE LAE RARE AARE SLE LESLHLELE 
*RELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT B. 
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sRELEASE THE DRIVE FROM PORT A 
MOVB —PORTA,RHCS2(RO) ,SELECT PORT 

MOV PORTAPTNBR ;MOVE PORT apoRese TO LOCATION FOR TYPEOUT 
MOV #13, RACSI(RO): sISSUE RELEASE THROUGH PORT A 


; VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 


CLR LEAR ’RELEASE ERROR’ INDICATOR 
MOV SATA! MOL! PGM!DPRI ORY! WV, § sCOMPARISON CONSTANT 
MOV sREGISTER ADDRESS’ I NT 


NCREME 
AD REGISTER BASE ADDRESS FOR TYPEOUT 
MOVB POAT Pore’ yRHC FihaR “ato veebee PORT 
MO ADDRESS TO LOCATION. FOR TYPEOUT 
MOV NOSTNBD sREAD STATUS REGISTER FR TB 

MOVB SORTA, cee SELECT PORT A 

MOV POR A’ PTNBR PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RHDS sitro Me Saoday - DRIVE Stal us PORT A 


FROM 
BEG BR IF STA TUS FROM PORT A. ZERO 
TST STHPO 31S STATUS FROM PORT B ZERO 
BEOQ 64S *BR IF ZERO 
ERROR 31 *REPORT DRIVE IN NEUTRAL 
MOV *CHECK STATUS FROM PORT 


$TMPO, SBDDAT B 
MOV PORTB. PTNBR *CHANGE PORT ADRESS FOR TYPEOQUT 
ScDOAT, $8DDAT ; COMPARE WITH CONSTAN 


OK 
ERROR 3" REPORT REGISTER ERROR 
MOVB §PORTA,RHCS2(RO) ':SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR’ CLEAR THE =CHECK ERROR’ INDICATOR 
tov Reel aback Se role REGISTER. ADDR S eee ERROR MESSAGE 
ADD RO, SEOAGR aie 


nov ise "REGISTER T TER CONTENTS TO *STMPO’ 
BIC ee ta sshie SPECIFIED ets 


C 

MOV ges ar, STMP4 1 "BAD DATA’ 

BIC #ATA, STMPY ‘CLEAR THE MASKED BITS 

BIS STMP4,SGDDAT  ;'OR’ WITH GOOD DATA FOR TYPEOUT 
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REG RT 'g’ 
104016 ERROR 16 -TYPE MESSAGE 16 
ira 001236 _ con CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
il 001220 900010 MOVB © PORTB,RHCS2(RO) SELECT PORT B 
013737 O0l220 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005037 001236 CLR CKERR’ sCLEAR THE ’CHECK ERROR’ INDICATOR 
916037 O000l2 001126 MOV RHDS1(RO) bon’ “GET CONTENTS OF RHDS! 
012737 O000l2 OOllee MOV #RHDS1,SBOAOR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
060037 001122 ADD 0, $BDADR “ADD RH11 BASE ADDRESS 
012737 100000 001124 MOV #ATA. SGDDAT ;WHAT REGISTER SHOULD BE 
013737 001126 OO1156 MOV T,STMPO ' -MOVE REGISTER CONTENTS TO ’STMPO’ 
o4 737 077777 OO1156 SIC #tCATA,STMPO ;SAVE SPECIFIED BITS 
7 OOl1e4 901156 CMP SGODAT,STMPO °” ; COMPARE, THE 

001414 BEQ OK 
013737 001126 001166 MOV $2ODAT, STMPY icopY "BAD DATA’ 
042737 100000 001166 BIC BATA, STMPY *CLEAR THE MASKED BITS 
053737 001166 001124 BIS STNP4, SGDDAT 5 OR. WITH GOOD DATA FOR TYPEOUT 

001236 a con CKERR oer THE REGISTER COMPARE ERROR INDICATOR 


5 HERA HEHE AREA EE SEER EEE SEE RIE ESE IEEE EEE ERE EEE EE EEE RE EEE 
;RELEASE THE DRIVE FROM PORT B 





113760 001220 000010 MOVB § PORTB,RHCS2(RD) ;SELECT PORT B 
S284 030064 13737 801220 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
scb5 030072 012760 600013 000000 MOV #13,RACSI(RO)’ ;ISSUE RELEASE THROUGH PORT B 
5e87 VERIFY THAT THE DRIVE = IN NEUTRAL 
5289 100 001 CLR RELERR ;CLEAR THE ’RELEASE ERROR ’ INDICATOR 
5290 heated poS035 6 001122 MOV sRHDSI SBDADR FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
5-91 O2011l2 060037 OOli22 ADD ; 900 THE I/0 BASE ADDRESS 
5292 030116 012737 011700 001124 MOV BROLTPCH! DPR! DRY vivv, SGDDAT 7) SOMPARISON CONSTANT 
5293 030124 113760 001216 O00010 MOVB = PORTA RHCSE(RO) ; >SELECT POR 
5294 030132 O16037 000012 001162 MOV RHDS i TMP2 iGET ET THe OF ORIVE” STATUS REGISTER FROM PORT A. 
5295 030140 Ol 001i62 001156 MOV $ INTO *STMPO’ 
5296 030146 042737 400100 1156 BIC #ATAIVV 3 a OPE AR PORT DEPENDENT BITS FROM THE COPY 
5297 030154 113760 O01 10 MOVE = PORTB Rit ) ECT 
6298 030162 016037 000012 001164 MOV RHDS1(RO), $TMP3 GET THE PORTVE’ STATUS REGISTER FRCM PORT B. 
5299 030170 013737 O01164 001160 MOV STMP3 STH COPY IT TANTO »STMP 
5300 030176 100100 001160 BIC #ATANVV STMP1  :CLEAR DEPENDENT BITS FROM THE COPY 
5301 O30e04 Gea? 37 001156 001160 CMP STMPO, STMP1 15 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
236 030814 005737 001156 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
5304 001 69S *BR IF NOT 
Exs 030222 | ERROR 46 * REPORT ORIVE NOT oll NEUTRAL OR NOT SEIZED 
5306 O20ee4 000137 030410 71$ “BYPASS THE REST THE CHECK S 
5307 030230 013737 001 1b2 001126 67%: MOV STMP2, SBDDAT ier UP POSSIBL: rE BAD DATA FOR ERROR MESSAGE 
5308 030026 013737 001220 001226 MOV PORTE, PTNBR : SEIZING PORT, T SHOWS DRIVE NOT IN NEUTRAL 
5309 030044 113760 OO0le20 OO00i0 MOVB  PORTB,RHCS2(RO) ;SELECT 
6310 O30ese 005737 001156 TST STMPO SEE IF coe TUS” EQ 0 FROM PORT A. 
pail 001414 BEQ “BR IF ZERO 
6312 030260 013737 O01216 001226 MOV PORTA, PTNBR "SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
£313 O30266 013737 OOL1E4 OD1126 MOV STMP3,SBDDAT  ;*BAD DATA’ FOR ERROR TYPE OUT 
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TEST PORT REQUEST FROM PORT 


? 1 000010 MOVB =P. RTA,RHCS2(RO) ; ECT PORT A 
Boers? Bot Fe8 131 ig ise uF SI ATUS EQ ZERO FROM PORT B. 
17777 001242 68%: MOV #-1,RELERR £3 TARELEASE ERROR’ INDICATOR 
O11 ooocco «Ct MOV #11) RHCS1(RO) LEAR IVE 
000913 900000 MOV #13;RHCSI(RO)  :RELEASE THE DRIVE 
ERROR 26 ‘TYPE ERROR MESSAGE 26 

001162 001126 69%: MOV STHPe, SB0DAT "LOOK FOR BIT FAILURES WHEN RHDS1 READ 
001216 O0l22 MOV PORTA PTNBR CHANGE PORT NUMTER 
0011e4 OO116 CMP GOpAT,STMP2  ;ALL BITS OK ” 

Bo? sa :BR Bia OK FROM PORT A. 
001164 001126 70$: MOV STHP3, SBDDAT § ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT 8. 
001220 001226 MOV PORTB; PTNBR : 
O0ile4 OO1164 CMP SGDOAT, STMP3  :SEE IF READ OK FROM PORT B. 

BEQ 71$ :BR IF OK 

ERROR 7 ‘REPORT ERROR 

71$: NOP 
1S: 

;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
001103 TSTB SERFLG :DID AN ERROR OCCUR ? 

BEQ TST23 BR IF NOT 
001090 177570 BIT #5W09, SWR -SEE IF LOOP ON ERROR SET (SWR9=1) 

BEQ TST :- BR IF NOT 
091103 CLRB SERFLG :CLEAR THE ERROR FLAG 
001170 CLR STIMES *CLEAR THE MAX ITERATION COUNT 
Teoaay IMP aSLPERR *GO TO THE LOOP ADDRESS 


JH HHHEH HHH HEHE HAHEI EHH EEE EAH EHE EEA BESS 
j TEST 23 TEST NO ’PORT REQUEST’ WHEN READ RHCS1 THROUGH PORT ’A’ 


| VERIFY, THAT, READING THE CONTROL REGISTER (RHCS1) DOES NOT SET ’PORT 


SEIZE THE DRIVE THROUGH PORT ’B’ BY READING RHCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


READ THE CONTROL REGISTER FROM PORT °A’. VERIFY THAT "DVA’ IS NOT 
ISSUE A RELEASE COMMAND THROUGH PORT ’ VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER A TENTION BIT IS SET. 

ee 

: s INITIALIZE THE SCOPE HANDLER 


Oo 
o 


WE DEC IK OC DRC iC ee oc aie oc 2k 
wo 


001266 TST KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 
BEQ es ;8R IF NOT 
BPL 1$ ;BR IF JUST enTenso TEST 
ge JMP EXEC RET URN & GET NEXT TEST NUMBER 
1 O01266 15: MOV #-1, Au ;S T_SINGLE TEST INDICATOR 
000023 00110e es: MOVE #23, STSTNM 
030520 001106 MOV #TEST23, SLPADR LOAD LOOP ON TEST ADDRESS 
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3370 pae0s 012737 030520 001110 MOV WTEST23 SLPERR ;LOAD LOOP ON ERROR ADDRESS 
371 030512 Qle737 007640 001170 MOV #4000. ,$TIMES ;;D0 4000. ITERATIONS 


















74 ee KERALA LESKRALASHRLL ALE RS AAA FRASE RA LLHE LEA EAELELEESERELELALESEAFAEKAFFSEE - 
2379 :END OF ’SCOPE’ SETUP - START OF MAIN TEST 
5377 030520 TEST23: 
5379 sCLEAR ATTENTION BITS FOR BOTH PORTS | 
238 et 930520 113760 001216 000010 MOVB  PORTA,RHCS2(RO) ;SELECT PORT #A i 
Be ee Gs tT omen §=— metic) TEL One" 
5384 Bepeus ot ane 00000 MOV #13°RHCSI(RO) RELEASE if DRIVE 
5385 030546 113760 001220 O00010 MOVB PORTB,RHCS2(RO) :SELECT PORT #8 
5386 030554 O00S060 Oo0001e CLR RHDS1{RO) >SEIZE THE DRIVE THROUGH PORT ’B’ 
5387 030560 012760 OO001! op0000 MOV #11,RHCSI(RO) ;ISSUE DRIVE CLEAR 
2388 030566 012760 900013 op0000 MOV #13,RHCSI(RO) RELEASE THE DRIVE 
eat $ 5 RERREREREEEEE LE LALE LAER EEE LEER EL LLL LEER LAE REL AL ALLA LEAF RALE TELE EAELEE 
pais ;SEIZE THE ORIVE THROUGH PORT B 
S33 030574 113760 001220 oo0010 MOVB §PORTB,RHCS2(RO) ;SELECT PORT B 
5395 030602 013737 001220 001230 MOV PORTB,SEIZPT ;STORE SEIZING PORT’S ADDRESS 
53% 030610 005760 000000 TST RHCS1{RO) : 
5397 030614 113760 O01216 oo0010 MOVB PORTA,RHCS2(RO) ":SELECT PORT A 
5398 930622 013737 OOlel6 001226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
5399 030630 013737 001216 001232 MOV PORTA; OPPRT ; OPPOSITE’ PORT ADDRESS 
5400 030636 016037 O000l2 001126 MOV RHOS1(RO),S$BDDAT’ ;SEE IF DRIVE SEIZED BY PORT B 

1 030644 010037 001122 MOV sRH11 BASE ADDRESS 

030650 062737 O00012 od1122 ADD #RHDS1,$BDADR  ;GENERATE BAD REGISTER ADDRESS 

Bis fees eer BBL ones © e«EERR,sooonr /fe"Tue-meevER Gend™ 
2ype heesgl arte Q o* Wig *BR IF IT 2 
Zune BSCE 1 ee PE ORee REST COE SHE SUBTEST 
Eqpa nena eee B31 338 MOVB PORTB, RHCS2(RO) oF CERT TB 
5409 030706 013737 O01220 001226 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT a 
S410 030714 O1 16 001126 MOV RHDS1(RO),S$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS a 
5411 0307 Oie737 it 001124 MOV #MOL'PGM? OPR! DRY! VV tT ; ED STATUS +t 
Sule 013737 001124 O01160 SGDDAT,STMP1 ;USE G00D DATA’AS A MASK Whi 
S413 030736 005137 001160 COM STMP1 sC T THE EXPECTED STATUS 
5414 030742 013737 001126 001156 MOV SBODAT,STMPO § ;SAVE THE ACTUAL STATUS 
S415 030750 043737 OO01160 001156 BIC STMP1. $TMPO ‘CLEAR UNWANTED BITS 
S416 030756 023737 OO1le4 OO1156 CMP SGDDAT,STMPO § ARE THE EXPECTED STATUS BITS SET ? 
5417 030764 001401 *BR IF THEY ARE 
S418 104005 ERROR 5 *REP HE ERROR 
5419 630770 113760 001216 000010 MOVB  PORTA,RHCS2(RO) ':SELECT PORT A 
pte 013737 O0lel6 OOl226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
S422 FH SREKEKALAAAELELA RARER ELEA AAA ARAL RAR AAEAAAARA RRA RRARRA RA ARAS REAR AAAKALERLER 
Ea *READ RHCS1 THROUGH PORT A - TRY TO SET PORT REQUEST 
S425 031004 005037 001236 CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
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» RPOY DUAL CONTROLLER LOGIC TEST ~ PART 1 
T23 TEST NO ’PORT REQUEST’ WHEN READ RHCS1 THROUGH PORT 


an (RO), $B ~ 


Bo0800 | BG1188 


001236 


B828e8 
TSUSESR Shoe 


ue 


S38 


a a ee OS be be 


S 


67$ 
#-1,RELERR 






1, SBOAD 
ev 
SBDDAT 
seouar> srre0 
SGDOAT, $11 , STMP 
$BODAT, STMPY 
#4077, $TMPY 
SrrP4, ScooaT 
CKERR 





SSF EEFE KEELE KEEFE EF EEE FER FE SLL AKL ESE EA AE RE LEK ESE E LEHR ALAS F LAS LHELELEFSESE 
‘ ARIVE SHOULD RETURN TO NEUTRAL 





;RELEASE THE DRIVE FROM PORT B 





PORTB, el 
a TB; 


PTNBR 
3,RAICSI(RO)’ 


RELERR 
antes $BDADR 


$BDADR 
MOL! PGM! DPR! DRY 


Ly 
PORTA, RHCS2(RO) ; 
MP2 ; 


RHDSLURG) ST 


aararvy TMP 
ByRiesecRO) iS 
Roos) STHPS 5 


5 
STMP2, SBDDAT 
PORTB,PTNBR 
PORTE, RHCSE(RO) 
66S 
PORTA, PTNBR 


STMP3, SBDDAT 
PORTA, RHCS2(RO) ; 
STMP1’ 
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wae OF ERROR MESSAGE 


BOUL BE 
STER GONTENTS TO *STMPO’ 


3CL SKED BITS 
coe uit GOOD DATA FOR TYPEOUT 
SET THE REGISTER COMPARE ERROR INDICATOR 


PORT B 
nove PORT ADDRESS TO LOCATION FOR TYPEOUT 
s ISSUE RELEASE THROUGH PORT B 


THAT THE DRIVE IS IN NEUTRAL 


;CLEAR THE "RELEASE ERROR ’ INDICATOR 
sFORM THE ADDRESS OF RHDS1 FOR TYPEOUT 


/0 BASE AD 
MS ehienaes CONSTANT 
THE "Delve, STATUS REGISTER FROM PORT A. 
yD ab *STMPO’ 
PENDENT BITS FROM THE COPY 
THE DRIVE, gran REGISTER FROM PORT B. 


INTO’ 
AR_ PORT DEPENDENT BITS FROM THE COPY 
its THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


#REGISTERS ARE THE SAME: ARE THEY ZERO ? 
REPORT DRIVE NOT iN NEUTRAL OR NOT SEIZED 


CKS 
AD "DATA FOR ERROR MESSAGE 
;SEIZING, aol IF TEST SHOWS DRIVE NOT IN NEUTRAL 


ie F CrATUS’ EQ O FROM PORT A. 


SEIZING PORT IF TEST SHOWS BaTve NOT IN NEUTRAL 
; BAD ite en ERROR TYPE OUT 


ee ir Sta CyATUS EQ ZERO FROM PORT B. 
;SET RELEASE ERROR’ INDICATOR 


;BY PASS THE REST OF 
T_UP POSSIBLE B 

















MD-11-DERFP-A, 


4 S13Se 012760 000011 000000 
Fe £0 60013 000900 


0 
5484 031 104026 
S 1370 013737 O01162 001126 
S486 1276 013737 O0lel& OO0lee6 
S487 031404 023737 O011e4% 001162 
5488 palais 901401 
S489 031414 104007 


5490 031416 013737 001164 001126 
S491 031424 913737 OOlee0 O0leeb 
S492 as 023737 O011e4% 001164 


E493 03 001401 
S494 031442 104007 
S495 031444 0002 
S496 031446 
5497 
5498 
5499 
S500 O31446 105737 901103 
5501 031452 OO141e 
S502 031454 032737 001000 177570 
5503 031462 001406 
5504 031464 105037 001103 
S505 031470 005037 001170 
5506 031474 000177 147410 
5507 
5508 
5509 
5510 
5511 
g51e 
5513 
5514 
5515 
5516 
5517 
5518 
6519 
5520 
5521 
5522 
5523 
S24 031500 
peee 031500 00 
6506 031502 005737 O012b6 
5527 031506 001406 
5528 031510 100002 
S529 031512 000137 002410 
Bes0 031516 Ole737 001266 
5531 031524 112737 001102 
5532 031532 012737 031554 001106 
poss 031540 Ole7s7 O3154 001110 
5534 031546 012737 007640 001170 
| $535 
| $536 
6537 
| 
| 
| 
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DERPPA.P11 T23 TEST NO *PORT REQUEST’ WHEN READ RHCS1 THROUGH PORT ’A’ 


MO9 


MOV #11,RHCS1(RO)  ;CLEAR THE DRIVE 
MOV #13; RHCS1(RO) ine THE DRIVE 
ERROR 26 YPE ERROR MESSAGE 26 
67$: MOV STMP2, SBODAT + SOR FOR BIT FAILURES WHEN RHDS1 READ 
MOV PORTA’ PTNBR * CHANGE PORT NUMBER 
CMP $GODAT,STMP2 ALL ? 
8EQ 68S BR IF kp PROM PORT A. 
ERROR 7 : REPORT 
68$: MOV STMP3,S$8DDAT  ;CHECK Ribs, FOR BIT FAILURES - FROM PORT 8. 
MOV PORTB. PTNBR :CHANGE PORT NUMBER 
CMP $GDDAT, STMPS ; SEE IF READ OK "FROM PORT B. 


BEQ 69$ BR IF OK 
ERROR 7? ?REPORT ERROR 

69S: NOP 

1$: 
IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB  SERFLG ;DID AN ERROR OCCUR ? 
BEQ TST24 : NOT 
BIT #SW09, SWR gee IF LOOP ON ERROR SET (SWR9=1) 
BEQ TST24 :-BR T 
CLRB  SERFLG tArEA AR THE ERROR FLAG 
CLR STIMES CLEAR THE MAX F ERATION COUNT 
IMP JSLPERR *GO TO THE LOOP ADDRESS 

PSTEST 24 TEST NO PORT REQUEST’ WHEN READ RCS] THROUGH P 

*TEST 24 TEST NO ’PORT REQUEST’ WHEN READ RHCS1 THROUGH PORT ’B’ 


ty 
s VERIFY, THAT READING THE CONTROL REGISTER (RHCS1) DOES NOT SET *PORT 


» 


SEIZE THE DRIVE THROUGH PORT ’A’ BY READING RHCS1. ~ VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


aen0 THE CONTROL REGISTER FROM PORT ’B’. VERIFY THAT ’DVA’ IS NOT 


oO 
* 


ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


Pettitt ttt tiiiitttitititittttttiiiittttti ttt tt tte 


we wees ee wes ee ee es ee we 
HK HE MC IK ic KK oe MC Kk >i 
wo 


tST24 
SCOPE s INITIALIZE THE SCOPE HANDLER 
qs! KYBCTL ;PE FORMING ONLY SINGLE TESTS ? 
BPL 1$ BR IF JUST ENTERED TEST 
JMP EXEC URN & GET NEXT TEST NUMBER 
1$: MOV ae KyBcTL IST PaNGLe TEST INDICATOR 
2s: MOVB UMBER 


#24° STSTNN 
MOV #TEST24, SLPADR tL GAD LOOP ON TEST ADDRESS 
MOV #TESTO4’SLPERR :LOAD LOOP ON ERROR ADDRESS 
MOV #4000. , $TIMES D0 4000. ITERATIONS. 


5 JHE HHI GE 





» RPOY QUAL_CONTROLLER LOGIC TEST - 
T24 TEST NO *PORT REQUEST’ WHEN READ RHCS1 THROUGH PORT °B’ 


SagREge8 
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ie re = eee ee 
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;END OF *SCOPE’ SETUP - START OF MAIN TEST 





TEST24: 





;CLEAR ATTENTION BITS FOR BOTH PORTS 





MOVB PORTA,RHCS2(RO) ; tae te OR ve 
C RHDS1(RO) 


NOV. 14° RAE 21 (RG) le Be at ste 


MOVB  PORTB,RHCS2(RO) ; 

CLR RHDS1 (RO) rte The RORIVE THROUGH PORT ’B’ 
MOV #11,RHCSI(RO) ;ISSUE DRIVE CLEAR 

MOV #13;RHCSI(RO) RELEASE THE DRIVE 





5p RAMEE EKER EER KARE EERE E EERE EERE EERE ERE EERE REE EE ESERIES 
;SEIZE THE DRIVE THROUGH PORT A 








MOVB PORTA, RHCS2(RO) ;SELECT PORT A 
MOV PORTA,SEIZPT ;STORE SEIZING PORT’S ADDRESS 

TST RHCS1{RO) sREAD_RHCS 

MOVB = PORTB, RHCS2(RO) “SELECT PORT B 

MOV. —- PORTB;P TNBR sHOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


MOV PORTB: * PORT ADDRESS 

MOV RHDS1*90),$BDDAT’ ;SEE iu DRIVE SEIZED BY PORT A 
MOV RO, SBDADR ;RH11 BASE AD 

ADD #RHDS1 , SBDADR i CENERAT — BAD REGISTER ADDRESS 


CLR $GDDAT REGISTER SHOULD BE ZERO 
a4 wae SE 315 T HE REGISTER ZERO 


R IF 11 1S 
sREPORT THE ERROR 

J 1$ : BYPASS REST OF THE SUBTEST 
MOVB § PORTA,RHCS2(RO) ’;SELECT 
MOV PORTA, PTNER MOVE PORT apokese TO LOCATION FOR TYPEOUT 
MOV RHDS1{RO Sepia T :SEE IF SEIZING PORT SEES CORRECT STATUS 
MOV NDE PCH: BPRY DRY! v¥" SGDDAT sEXPECTED STATUS 

MOV SGDDAT,STMP1 ;USE 6900 DA ATA'AS A MASK 

COM STMP1 > COM OPENER THE EXPECTED STATUS 

MOV SBDDAT,STMPO § :SAVE THE ACTUAL STATUS 

STMP1,$TMPO CLEAR UNWANTED BITS 

CMP SGDDAT,STMPO © :ARE THE EXPECTED STATUS BITS SET ? 

BEQ +4 iBR IF THEY 


ERROR 5 ;REPORT_THE ErnOR 
MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


5 RHE EE RIE HEHE HERE REESE EEE EE RHEE MEE EEE EE EEE HEE EEE EEE ERE EE REE 
‘READ RHCS1 THROUGH PORT B - TRY TO SET PORT REQUEST 


CKERR ;CLEAR THE ’ CHECK ERROR" INDICATOR 
MOV RHCS1(RO),S$BDDAT’ ;GET CONTENTS OF R 

MOV BRHCS1.SBOADR ;FORM REGISTER ADDRESS 2 ERROR MESSAGE 
ADD RO, $BDADR sADD RHI BASE ADDRESS 

CLR $GbDA WHAT REGISTER HOULD BE 

MOV SBODAT , STMPO ‘MOVE REGISTER CONTENTS TO *STMPQ’ 


m 
=am 
VAOS 

oO 

Zz 

4 





eae + ee ee ae ee 
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“DERPP9A, RPDY QUAL CONTROLLER LO 


=z 
BS 


‘ REPA-PL! TE4 TEST NO "PORT N READ RHCSL THROUGH PORT ‘8’ 
SSM O3207% 42737 173700 901156 B.C 8104077, STMPO SAVE SPECIFIED BITS 
Sees 032104 O23737 O011e4 OO1ise CMP SGODAT, $TMPO sco ARE THE BITS 
S595 932112 pols - BEO & OK 
5597 pzetl’ O13737 901126 001166 MOV $BDDAT.STMPY ©=—-_«: COPY -*BAD DATA’ bi 
=59¢ lee O4e73s? OO4O77 OOLIES BIC 84077, $TMP4 CLEAR THE MASKED BITS 
| $593 032230 053737 BO1le& SOlles rs $TMP4'SGODAT  :°GR’ uITH 6000 DATA FOR Tr2EOUT 
S600 632136 104010 ERROR 10 “REPORT THE ER 
5851 032140 905137 001236 COM ARERR ‘SET THE REC iStER COMPARE ESROR INDICATOR 
soc 632144 500540 b4$: NO 
sé34 PEPER SELESEELEF HS SESSLFSIBIESES OPE HOLLER E SELES IL SE FES EPL OL FSIS OSE EEF EP ES 
E505 tARIVE SHOULD RETURIY TO NEUTRAL 
| 353 
| 3628 ;RELEASE THE DRIVE FROM PORT A 
| S610 o3214¢ 413760 o01216 00010 MOVB = PORTA, RuCSe (RO) SELECT PORT 
| 5611 O38i84 013737 001216 OOle26 MOV PORTA,PTNBR ;MC FT oboaese TO LOCATION FOR TYPECUT 
Ba O32ib2 612760 500013 soocdc MOV 813,RACSI(RO)' ;ISSUE RELEASE THROUGH PORT A 
e 
Beis ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
peib 032170 ; p1eNe CLR RELERR sCLEAR THE *RELEASE ERROR ’ INDICATOR 
17 030174 012727 00012 o0ll22 MOV SRHDS1,SBDADR :FORM THE ADDRESS OF RHDSI FOR TYPEOUT 
| S618 O32202 060037 001122 ADD {ADD THE 1/0 BASE ADDRESS 
$619 032206 012737 011700 001124 MOV SMOL'PGM'DPRIDRY!VV,$GDOAT ;COMPARISON CONSTANT 
| 620 032214 113760 OO1216 O00010 MOVB PORTA, RHCS2(RO) ;SELECT PORT’A. 
Se cieece O16037 990512 O01 162 MOY BHDS1 RO) STMP2 ;GET THE ORIVE STATUS REGISTER FROM PORT A. 
arse e 1 001162 0011 STMP2, STMPO ;COPY IT INTO 'ST 
/ 623 032236 042737 100100 001156 BIC TA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
| S624 032044 113760 001220 000010 MOVB  PORTB,RHCSE(RO) ;SELECT PORT 2. 
| §6e5 Gseese 016037 O00012 901164 MOY IIRO),STHPS ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
2e8 013737 OO1164 001160 MOV STMP3, STMP1 -COPY IT INTO ’STMP1’ 
032266 Bie? 37 190100 001160 BIC BATA'VV,STMP1  :CLEAR PORT SEPENDENT BITS FROM THE COPY 
. S628 032274 1156 OO1160 CMP STMPO, STMP1 TS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
| S629 032302 001006 BNE 65S *BR IF NOT 
' §6§30 032304 poor 001156 TST $TMPO i REGISTERS ARE THE SAME: ARE THEY ZERO ? 
+5631 932310 OO104S BNE 67S *BR IF NO 
/ §632 O32312 104046 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
| §633 032214 000137 032500 IMP 63S i BYPASS THE REST OF THE CHECKS 
5634 Gse3e0 013737 O0lig2 001126 65S: - MOV STMP2,SBDDAT :SET UP POSSIBLE BAD DATA FOR ERRCR MESSAGE 
| e3s 13737 bo1220 001226 MOV PORTB,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
: 5636 O30354 113760 1220 000010 ’  MOVB =- PORTB; RHCS2(RO) i SELECT BOR PORT 8. 
. §637 g3e34e 001156 TST ST *SEE IF STATUS EQ O FROM PORT A. 
. §638 032346 001414 BEQ 66S *BR IF ZERO 
£539 032350 013737 001216 O0l226 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
Ea p36 O17 001164 0011 MOV TP 3, $80 i TA’ FOR ERROR TYPE OUT 
i 13760 001216 0000 MOVB TavAMGSe(RO) iSEL CT PORT A. 
S42 032372 005737 OO1160 TST STMP! iSEE IF st STATUS EQ ZERO FROM PORT B. 
5643 03376 00101 BNE 67$ *BR I 
B32400 ed 177777 O0le42 66S: MOV #-1,RELERR :SET RELEASE ERROR’ INDICATOR 
Brae Bouya DLE7Ey po0019 900000 Oy a1 »RHCSI RD) ERELERGE THE DRIVE 
a] pees 1osee ERROR 33°" TYPE ERROR 26 
S648 O32424 013737 O01162 O01126 678: MOV STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RHDS1 READ 
 €649 032432 0137327 O01216 cOle26 MOV PORTA, PTNBR *CHANGE PORT ER 








ee 



























RPOY OURL CONTROLLER LOGIC TEST = PART 1 MACY11 27(732) pear "gr 10:31 PAGE i20 
Te4 TEST NO °PORT REQUEST’ WHEN READ RHCS! THROUGH PORT °B’ 


923737 051124 oO1l62 CMP $GODAT,STMP2 ;ALL BITS OK 
Oo14e) BEQ ges :BR IF be ER A PORT A. 
104067 ERROR :REP 
13737 DOL1E4 991126 68$: MOV S7HP3, SE008T 3 CHECK reos| FOR BIT FAILURES - FROM PORT 8. 
13737 OCle20 O0le26 MOV PORTS PTNBR “CHANGE P 
lle4# OOL1E4 CMP DAT,STMP3  :SEE IF READ OK FROM PORT 6. 
90140} SEQ eeg° :BR IF OK 
04 ERROR 7 REPORT ERROR 
£33: NOP 
13: 
:IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
37 O01: TST8  SERFLG :O10 AN ERROR OCCUR ” 
o9i4ie 8EQ TST2s :-BR IF NOT 
032737 001000 177570 BIT 85W09, SUR Hee IF LOOP ON ERROR SET (SWR9=1) 
0014 BEQ T5725 : 
eee 001103 CLRB = SERFLG Aer ERROR FLAG 
005037 901170 ELR STIMES CL EAR ite MAX ITERATION COUNT 
000:77 i463s4 IMP BSLPERR *G0 TO THE LOOP ADDRESS 
oeerey oe reer MEL EDGE AY PORT "A LAEN GEIZED BY PORT "Lae 
#TEST 25 TEST RELEASE BY PORT 'A’ WHEN SEIZED BY PORT 'B’ 
HSVERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
ii IS SEIZED BY THE OTHER PORT. 
:# A. SEIZE THE DRIVE THROUGH PORT °B’ BY WRITING O'S INTO RHDSI. 
i 8. ISSUE A RELEASE COMMAND THROUSH PORT ’A’. 
i C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ’B°. 
3 D. RELEASE THE DRIVE THROUGH PORT °B*. VERIFY THAT THE DRIVE SWITCHED 
te 
%# £. RELEASE THE DRIVE THROUGH PORT °A’. VERIFY THAT THE DRIVE RETURNED 
is _ TO NEUTRAL AND THAT NEITHER ATTENTION GIT IS SET. - 
CE Rn reo ean BER 
SCOPE deat 2E THE SCOPE HANDLER 
37 O00l2b6 TST KYBCTL NG ONLY SINGLE TESTS ? 
001406 BEQ 23 
S013? | 0024 eM CEREC Bt Ie ST _eNTeR PANENT TEST NUMBER 
9335 1 OO126E 1S: MOV se, kyBCTL ee etNeLENT TEST SEN TNDTeATOR 
112737 001102 2: MOVB 42,8 : TEST NUMBER 
012737 032610 001106 MOV He ee "LOAD LOOP ON TEST ADDRESS 
12737 10 001110 MOV nest PERR "LOAD LOOP ON ERROR ADDRESS 
012737 007640 001170 MOV *:D0 4000. ITERATIONS 


SHEKELS SELAESE REL AALS AREAS RSE SRAA SLA RS LALLAARARARERASREAERASALAAAREARE 
‘END OF 'SCOPE’ SETUP - START OF MAIN TEST 


a re ee oe ae 








MD=11-DERPP-A, RPOY QUAL CONTROLLER LOGIC TEST - PART 1 MACYII 27(732) O4-OCT-76 10:31 PAGE i2: 
DERPPA.P1) Ts TEST RELEASE BY FORT ’A* WHEN SEIZED BY PORT ‘8° 
B02 032610 TEST2S: 
505s ;CLEAR ATTENTION BITS FOR BOTH PORTS 
S711 032610 113760 001216 000010 MOVB PORTA, RHCS2i(RO) ;SELECT PORT #A 
S712 b3cble 905060 000012 CLR —-RHOS1{RO) :SEIZE THE ORIVE 
6713 012760 009011 ooc000 MOV S11,RHCSI(RO)  <iSSUE DRIVE CLEAR 
5714 032630 O12760 000013 000000 BV $13'RHCSI(RO) RELEASE THE ORIVE 
S715 032636 113760 001220 10 MOVB PORTB,RHCS2(RO) ;SELECT PORT 88 
S716 O3c644 905060 O0091e CLR RHDS1tRO) i SEIZE THE DRIVE THROUGH PORT 'B’ 
€717 032650 912760 009011 co0sce MOV #11,RHCSI(RO)  ;ISSUE DRIVE CLEAR 
2718 032655 Ole760 900013 900000 MOV #13;RHCS1(RO) RELEASE THE DRIVE 
a7e0 e's SLALAELSSLSFSLSEAELELAASEFSAAESERELE RHEL RELEELLAASRLLAALAFLELSELALSL SE SLEF 
S722 ;SEIZE THE DRIVE THROUGH PORT 8 
2553 032664 113760 901220 000010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 
5725 030672 013737 001220 001230 MOV PORTB,SEIZPT ;STORE SEIZING PORT’S ADDRESS 
5726 032700 O0S060 900012 CLR RHDS1[RO) sWRITE RHDS1 
5727 032704 113760 001216 oo0010 MOVB  PORTA,RHCS2(RO) *-SELECT PORT A 
2768 G3e71e O1 3737 Ob 1216 001226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 1 1216 OOle MOV PORTA; OPPRT : OPPOSITE’ PORT 
| 65730 032726 016037 O000l2 OO1126 MOV RHDS1{RO),SBDDAT’ ;SEE IF DRIVE SEIZED BY PORT B 
| 5731 032734 010037 001122 MOV RO sRH11 BASE ADDRE 
| Boss GRerie Beers, patie Obllee PR OSCDDAT’ Oe” REGISTER SHOUD BE SERON 
| §734 32752 Bo3o35 Botte 001126 €MP SGDDAT,SBDDAT 315 te REGIS 
| 6735 032760 001403 =~ BEQ +10 *BR IF IT IS 
| §736 032762 104004 ERROR 4 REPORT THE ERROR 
| 6§737 032764 000137 033716 IMP 1$ *BYPASS REST OF THE SUBTEST 
| §738 0320770 113760 001220 oop010 MOVB PORTB,RHCS2(RO) ":SELECT PORT B 
| 6§739 032776 013737 001220 O0l226 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
, §740 533004 016037 990012 001126 MOV RHDS1{RO).SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
| 574] 12 012737 O11 001124 MOV 8MOL?PGM!OPR! DRY! VV T EXPECTED STATUS 
‘5742 013737 001124 OO1160 MOV SGODAT,STMP1 ;USE GOOD DATA’AS A MASK 
' §743 0330206 005137 001160 1 ;COMPLEMENT THE EXPECTED STATUS 
_ 5744 933032 O17 37 001126 001156 MOV SBODAT $THPO *SAVE THE ACTUAL STATUS 
| 574s 3737 001160 001156 BIC STMP1, $TMPO *CLEAR UNWANTED BITS 
| 5746 033046 923737 OOlle4 001156 CMP SGDDAT,STMPO = 3ARE THE EXPECTED STATUS BITS SET ? 
| §747 033054 001401 BEQ + °BR IF THEY ARE 
 §748 033056 104005 ERROR S REPORT THE ERROR 
| 5750 3 SPRSFLESES FLERE EREE LE ERE EERE SE ESR LEERE RE RERLEE EERE SRERE RES LF ERE EC ERECSE 
| 5751 *tRY TO EXECUTE A RELEASE COMMAND THROUGH PORT A 
Be 033060 113760 001216 000010 MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
. 6§754 033066 013737 O0l2e16 001226 MOV PORTA’ PT ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| §755 033074 012760 000013 000000 MOV #13,RHCSI(RO)’ ;ISSUE A RELEASE COMMA’ THROUGH PORT A 
} 2728 gs HRESEREPRALLEERERERKHRAS SLRA LSE RR SRASARKRESS SSS LAH SAA KFRRKTRRERERER ELE 
eres *VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 
| 6§760 033102 005037 o01236 CLR CKERR sCLEAR THE CHECK ERROR’ INDICATOR 
€761 O32106 016037 000012 o01126 MOV RHDS1(RO),$BDDAT’ ;GET CONTENTS OF RHDS1 
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DERPPA.P11 T2S TEST RELEASE BY PORT ’A’ WHEN be TSED BY PORT ’B’ 
33114 012737 oO00012 o01122 MOV BRHDS1 SEDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
2-P8 pete ppecas BeP0Ls Boo ORG BOARS "AD0_RHI 1S rRce Ar RESS 
5764 ? O0112e4 CLR $GODAT * WHAT REGISTER eta Soe 
2768 Reel 3737 OO0lle4 001126 CMP SGDOAT, SBODAT is THE REGISTER OK ? 
i 14 BEQ ;8R_ IF OK 
5767 O33142 104010 ERROR 10 a ‘REPORT THE ERROR 
5768 Bestaa 905137 001236 COM CKE :SET THE REGISTER COMPARE ERROR INDICATOR 
3788 033180 01 001126 64$: MOV RHC oe) gigOorr i jGET THE CONTENTS OF RHCS1 
; 1 ? 001126 BIT TMCPE’ SET 
5771 033164 OO1404 BEG : NOT 
5772 033166 104011 ERROR i! ORT THE ERROR 
£773 033170 012760 o40000 oDD000 MOV STRE.RHCS1 (RO) CEE AR *MCPE? 
5774 033178 005737 001236 TST CKERR WAS RHDSI RO? 
5775 5333/8 801492 BEQ .+6 *CONTENTS OF RHDS1 SEEN BY PORT 
5776 933204 000137 033716 IMP ‘DRIVE IN NEUTRAL, BYPASS REST oF TEST 
2578 ss RELSEREFAFSSRSLFLFLERELELARSELALLLEAESEELASASELELELEREESA SEL FLAELEKLERS 
270 sRELEASE THE DRIVE FROM PORT B 
S782 032210 113760 901220 coo010 MOVB —«— PORTB, RHCS2(RO) -SELECT PORT B 
5783 O33218 013737 OOlecd OOlec6 MOV PORTB’ PTNBR sMOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
5784 O32cc4 012760 000013 o00000 MOV #13,RHCSI(RO) ;ISSUE RELEASE THROUGH PORT B 
57 2 sVERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT 8 
| 6788 033232 005037 ocol242 CLR RELERR (CLEAR "RELEASE ERROR’ INDICATOR 
5789 033236 012737 111700 091124 MOV #ATA! MOL! PGM! DPR! DRY! VV, SGDDAT s COMPARISON CONSTANT 
5790 933244 012737 O00012 O0llee2 MOV #RHDS1 sREGISTER ADDRESS I 
5791 O322S2 060037 001122 ADD RO ;REGISTER BASE ADDRESS FOR TYPEOUT 
ae 033256 113760 O01216 000010 MOVB  PORTA,RHCS2(RO) ‘SELECT PORT A 
| Bay gaaeve oleos? poooIe DOLise iii <3 ML O. STATUS REGISTER FROM PORT le 
| Boge Basson fisvea Dolses O00RTE HOVE BonTa, AS TROD ae ee 
| 5796 033306 013737 oo 1220 001226 HOV PORTB #tROS senda bet oR 1 bDRESS TO LOCATION FOR TYPEOUT 
| 258— Basses Golson By asi tho ir STAs UP AD PORTE ZeRo 
| §799 033324 005737 001156 TST STMPO A US FROM PORT 
| 5800 033330 001401 BEQ 65S 
6801 O3333¢ 104031 ERROR 31 *REPORT DRIVE IN NEUTRAL 
S802 033334 O01 001156 001126 65$: MOV STMPO, SBDDAT ; CHECK STATUS FROM POR 
5803 O33342 013737 001216 001226 MOV PORTA’ PTNBR PORT ADDRESS BOR” TYPEOUT 
5804 023350 023737 001124 OOli26 CMP Gopat, ‘COMPARE WITH CONSTANT 
S80S 032356 001401 BEQ . BR IF OK 
| §806 033360 104027 ERROR 27 *REPORT REGISTER ERROR 
| 2B08 By ;RELEASE THE DRIVE FROM PORT A 
2503 023362 113760 001216 o00010 NOVB PORTA, RHCS2(RO) SELECT PORT 
| §811 0633370 013737 001216 OOl2c6 MOV PORTA’P P F aboRese TO LOCATION FOR TYPEOUT 
pele 033376 012760 000013 000000 MOV #13, RACSICRO) sISSUE RELEASE THROUGH PORT 
| e814 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
£816 033404 005037 o01242 CLR RELERR ;CLEAR THE "RELEASE ERROR ’ INDICATOR 
| £817 033410 012737 000012 ool122 MOV #RHDS1,S$BDRDR  ;FORM THE ADDRESS OF RHOS1 FOR TYPEOUT 
| 
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SE BY PORT °A’ WHEN SEIZED BY PORT °B’ 


Hl RAO TPGne ae ar RORPARY GON CONSTANT 


BP Renee 


; SELECT 
;COPY IT INTO 'STMP 


BIC BATA'VV,STMPL CLEAR PORT DEPENDENT BITS FROM THE COPY 


ct STNPO, StHPL 15 THE STATUS REGISTER THE SAME FROM BOTH PORTS ” 
st STNPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
ERROR 46 : REPORT OF VE NOT IN NEUTRAL OR NOT SEIZED 
IMP 70S :BYPASS REST OF THE CHECKS 
663: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB § PORTB;RHCS2(RO) ;SELECT PORT 8. 
TST STMPO’ :SEE IF STATUS EQ O FROM PORT A. 
BEQ 67S BR IF ZE:0 
MOV PORTA, PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV snnteet :*BAD DATA’ FOR ERROR TYPE OUT 
MOVB Porta Ar (RO) ;SELECT PORT A 
TST :SEE IF STATUS EQ ZERO FROM PORT 8. 
BNE :BR IF NOT 
67S: MOV } RELERR *SET ’RELEASE ERROR’ INDICATOR 
MOV fii’ "RHCSI(RO) CLEAR THE DRIVE 
MOV #13;RHCSI(RO)  ;RELEASE THE DRIVE 
ERROR 26 :TYPE ERROR MESSAGE 26 
68S: MOV STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RHDS1 READ 
MOV PORTA, PTNBR *CHANGE PORT NUMBER 
CMP SGODAT, STMP2 sALL BITS Ok ? 
BEQ 633 ?BR IF OK FROM PORT A. 
ERROR 7 :REPORT ERROR 


69$: MOV STMP3, SBDDAT ;CHECK RHDS1 FOR Bit FAILURES - FROM PORT B. 


MOV PORTB. PTNBR :CHANGE PORT NUMBE 
CMP ScDOAT, STMP3 ;SEE IF READ OK FROM PORT B. 


BEQ *BR 
ERROR , REPORT ERROR 

70$: NOP 

1S: 

IF ERROR OCCURED, CHECK FOR LOOP ON TEST 

TSTB © SERFLG ;DID AN ERROR OCCUR ? 
BEQ TST26 +s 
BIT #5W09, SWR -SEE IF LOOP ON ERROR SET (SWR9=13 
BEQ ST26 : BR T 
CLRB = SERFLG :CLEAR THE ERROR FLAG 
¢LR STIMES *CLEAR THE MAX ITERATION COUNT 
IMP JSLPERR GO TO THE LOOP ADDRESS 

5 RHLERALERELLLA RELL LA LAA L LALLA ALLLLALAL LALLA REALL LRLLALERLLERE 

j#TEST 26 TEST RELEASE BY PORT ’B’ WHEN SEIZED BY PORT ’A’ 


STATUS REGISTER FROM PORT A. 
ak ;CLEAR ny DEPENDENT BITS FROM THE COPY 
MOV Rost) STMP3 :GET THE DRIVE. sTaqus REGISTER FROM PORT B. 
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reaebat BT Tee eee Tee eee eee ne Tae finen de TseD By POR 
S874 ;#VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
BEL : 1S SEIZED BY THE OTHER PORT. 
5877 i A. SEIZE THE DRIVE THROUGH PORT 19 BY WRITING 0’S INTG RHDSi. 
és i B. ISSUE A RELEASE COMMAND THROUGH PORT ’B”. 
eee i C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A’. 
eee ** OD. RELEASE THE DRIVE THROUGH PORT A’. VERIFY THAT THE DRIVE SWITCHED 
5684 i# O FORT ’B”. 
58 3 *® £€, RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE RETURNED 
5897 i TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
goag . LE ERESESFSES SESH CAPER L SEF EE ELE SLE SE PELLEGR EFEPA EAE EEL ES SS RES E 
5890 033758 tsT2e: 
5891 03 sINITIALIZE THE SCOPE HANDLER 
5892 033752 37 O01266 : ‘TST KYBCTL ‘PERFORMING ONLY SINGLE TESTS ? 
5893 033756 001406 BEQ 2s BR IF NOT 
5894 032760 100002 BPL 1$ :BR IF SUST ENTERED TEST 
589s 033762 000137 002410 IMP EXEC "RETURN & GET NEXT TEST NUMBER 
589% 033766 012737 177777 OO01266 1S: MOV #-1, KYBCTL SET SINGLE TEST INDICATOR 
5897 033774 112727 001102 2: MOVB #26 S Tern : TEST 
5898 034002 012737 034024 001106 MOV 8TEST25,SLPADR LOAD LOOP ON TEST ADDRESS 
5899 034018 012737 034024 001110 MOV STEST26,SLPERR :LOAD LOOP ON ERROR ADDRESS 
ea 034016 012737 007640 001170 MOV #4000.,$TIMES $;D0 4000. ITERATIONS 
£963 H © SEEAERE SEAL SESE SLELELAELALSELAFELA LA LE RAEAEE LALLA RARE RALEAS AA RALALESESEE 
2304 “END OF ’SCOPE’ SETUP - START OF MAIN TEST 
2306 034024 TEST2b: 
2308 sCLEAR ATTENTION BITS FOR BOTH PORTS 
5910 034024 113760 001216 000010 MOVB § PORTA, RHCS2(RO) ;SELECT PORT #A 
£911 O3403e 005060 o00Die CLR RHDS1{RO) :SEIZE THE DRIVE 
5912 034036 012760 000011 oo0000 MOV #11,RHCSI(RO) ISSUE DRIVE CLEAR 
5913 ps044 012760 000013 o00000 MOV 3, RHCS1(RO) RELEASE THE DRIVE 
5914 113760 OOl220 00010 MOVB ORTB, RHCS2(RO) i SELECT PORT #8 
5915 034060 005060 o00012 CLR RHDS tRO) ;SEIZE THE DRIVE THROUGH PORT 'B’ 
5916 034064 012760 O00011 ooo0c0 MOV #11, oF «ROD ISSUE DRIVE CLEAR 
317 034072 012760 090013 900000 MOV #13,RHCS1(RO)  ;RELEASE THE DRIVE 
bale . 5 RRELLAAAE REEL EL ALARA LAE LA LALLA LLLAE EE LE RAL LALLA LEAL AA LL AA LALA ERAREAE 
Bae ;SEIZE THE DRIVE THROUGH PORT A 
5923 034100 113760 001216 000010 MOVB § PORTA,RHCS2(RO) :SELECT PORT 
b3ed 034106 013737 001216 001230 HOV PORTA, 1ZPt sSTORE SE ZING PORT’S ADDRESS 
sioe rea 5137 lze0 Toop 2h ren, /RHCSECRO) | SELECT PORT @ TO LOCATION FOR TYPEOUT 
Eo28 034134 Re pptss5 SESE MOV PORTB.OPPRT ° ;OPPOSITE’ PORT ADDRESS 
£929 034142 016037 O000l2 001126 MOV RHDS1(RO),SBDDAT’ ;SEE IF DRIVE SEIZED BY PORT A 








TEST RELEASE BY PORT °8’ WHEN SEIZED BY PORT 


20 630037 00112 MOV RO, SBDADR ;RH11 oe ADDRESS 
37 Q000le O0lle2e ADD #RHDS1 , SBDAOR ; GENERA TE BAD REGISTER ADDRESS 
le4 CLR S$GDDAT’ REGISTER SHOULD BE ZERO 
oe :18 THE REGISTER ZERO 


: IF IT IS 
ERROR 4 sBePoaT THE ERROR 
1$ YPASS REST OF THE SUBTEST 
a) MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
6 MOV PORTA. PTNBR MO ové PORT ADDRESS TO LOCATION FOR TYPEOUT 


MOV RHDS1tRO),S$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
MOV MOL tT PCN! BPR! ORY! VV. SGDDAT ma 013 STATUS 
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DERPPA.P11 T26 A’ 
001 
001126 
1700 001124 
5941 034234 001124 O01160 MOV SGODAT,STMP1 ;USE GOOD DA MASK 
S942 O34242 005137 O011 COM STMP1 SE ONPLEMENT Ane EXPECTED STATUS 
5943 034246 013737 O0lle6 001156 HOV SBDDAT,STMPD § ;SAVE THE ACTUAL STATUS 
S944 034254 043737 001160 001156 BIC STMP1. $TMPO ‘CLEAR UNWANTED BITS 
5945 O342b2 023737 O01124 001156 CMP $GDDAT,STMPO = ;ARE THE EXPECTED STATUS BITS SET ? 
S946 034270 001401 BEQ +4 ‘BR IF THEY ARE 
eat 034272 104005 ERROR 5 :REPORT THE ERROR 
Soy SRERLE SLE ELA ESSERE ELE SLA LE LEVELS ES SS ELSE REL LE ERLE EL ESSER EKER ESR ALELS SESE 
2350 Sty TO EXECUTE A RELEASE COMMAND THROUGH PORT B 
Poe oaer 413760 0012 0010 MOVB PORTB,RHCS2(RO) ;SELECT PORT 2 
13727 Ole 01226 MOV PORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

p54 034210 012760 000013 o00000 MOV #13,RHCS1(RO)’ ;ISSUE A RELEASE COMMAND THROUGH PORT B 
5 SeRTEY THAT THE DRIVE Ie STILL SEIZED BY PORTA 
222 : VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 
5959 034316 005037 001236 CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
5960 034 016037 OO00le 001126 MOV RHOS1 (RO) SBODAT’ :GET CONTENTS OF RHDS1 
£961 034330 012737 000012 OOlle2 MOV 1,S$BDADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
5962 034336 060037 OOll22 ADD bs AP OSADR ";ADD_RH11 BASE ADDRESS 
5963 034342 005037 001124 CLR *WHAT REGISTER SHOULD BE 
5964 034346 023737 001124 001126 CMP SGDDAT,SBDDAT :IS THE REGISTER OK ? 
5965 034354 O01403 BEQ BR IF OK 
ea? auseR USS? DLE FOR’ CRERR CET IME REGISTER COMPARE ERROR INDICATOR 
5 364 yea pOAe aR 001126 64S: MOV RHCSI(RO),SBDDAT’ ;GET THE CONTENT 
5969 934372 032737 O20000 O01126 BIT BMCPE,SBODAT  ;I15 *MCPE’ SET ? 
5970 O34400 901404 BEQ +12 ‘BR IF NOT 
5971 O34402 104011 ERROR il REPORT THE ERROR 
Bars pauaie poeTay pores Oe Me RIERA CSE CRO) CEE RuDGT HON ZERO? 
5974 O34416 001402 BEQ “a CONTENTS OF RHDS1 SEEN BY PORT B 
2375 034420 000137 035132 IMP is “DRIVE IN NEUTRAL, BYPASS REST OF TEST 

| Ban s ; RERLLALLAALARELA EA LALLA LALLA RA RA LAE ELLA LAA R LEELA ELE RELA RRARRRLALR EARS 
2329 ;RELEASE THE DRIVE FROM PORT A 
5981 O34424 113760 001216 o00010 MOVB PORTA,RHCS2(RO) ;SELECT PORT 
E982 034432 013737 OO0lel6 OOlecb MOV PORTA,PTNBR ;MOVE PORT apokese TO LOCATION FOR TYPEOUT 
2383 O34440 012760 000013 o00000 MOV #13,RHCSI(RO)’ ;ISSUE RELEASE THROUGH PORT 
e9gs VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
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DE Pil TEST RELEASE BY PORT °B’ WHEN se TSED BY PORT *A’ 


5386 
5987 osu 005037 o01242 CLR RELERR ;CLEAR "RELEASE ERROR’ INDICATOR 
5988 012737 111700 001124 MOV aATALMOL SGM? DPR ORY! VV SCOOAT ; COMPARISON CONSTANT 
5989 460 ler 37 o00012 oOll22 MOV RHDS1.$8DADR ;REGISTER AD S INCRE 
5990 “66 060037 O0ll22 ADD $8080 OR REGISTER "BRSE “fo Reeene FOR TYPEOUT 
5991 72 113760 001220 oo0010 MOVB £0.55 HCS2( RO) veeneel 
5992 034500 913737 OO lee 001226 MOV BORTB BTNBR epee 8 TO LOCATION FOR TYPEOQUT 
5993 034506 016037 le 001156 MOV RHDSI (RO) ermB vies STATUS GISTER FROM PORT 8 
5994 034514 113760 OOlels 000010 MOVB = PORT Aces (RO) TA 
5995 O345e2 013737 OOlll6 OOlec6 MOV PORT aaa DhovE’E BES T aborese TO LOCATION FOR TYPEOQUT 
599 034530 016037 O0000le 001126 MOV HDS1(RO),S$BDDAT _;DRIVE STATUS FROM PORT 
£997 03156 1404 EQ fee ;BR IF STATUS FROM PORT A ZERO 
5998 40 poeae 001156 ST STMPO 515 STATUS FROM PORT B ZERO ? 
5999 O34544 001401 BEQ 65S -BR IF ZERO 
6000 O34546 104031 ERROR 31 ‘REPORT DRIVE IN NEUTRAL 
6001 O34550 013737 001156 001126 65%: MOV STMPO,SBDDAT © ;CHECK STATUS FROM PORT B 
6002 O34556 013737 001220 001226 MOV PORTE, PTNBR 3 CHA NGE PORT ADDRESS FOR TYPEOUT 
6003 O34564 023737 OOlle4 OOll26 CMP GDDAT, SBDDAT ; COMPARE WITH CONSTANT 
6004 034572 001401 BEQ ie *BR IF O 
$005 104027 ERROR 27 *REPORT REGISTER ERROR 
Epos oF sRELEASE THE DRIVE FROM PORT B 
Etng 034576 113760 001220 000010 MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
6010 O34604 013737 001220 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
p01 034612 012760 000013 o00000 MOV #13,RACS1(RO)’ ;ISSUE RELEASE THROUGH PORT B 
bo13 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
6015 034620 005037 oDd124e CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
6016 034624 Dera so0012 001122 MOV #RHDS!,SBDADR ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
6017 O34632 06 00112 ADD RO ADD THE I/0 BASE ADDRESS 
6018 034636 Ole? 37 011700 001124 MOV aHOL sPGM: DPR: YivV,SGDDAT _;COMPARISON CONSTANT 
6019 O34644 11 1216 OO000I0 MOVB ORTA, RHCS2( ) ;SELeCT T PORT’A. 
£020 O346S2 016037 000012 O01i6e MOV Pabst (ROS SInPo *GET THE DRIVE STATUS REGISTER FROM PORT A. 
602 O3660 013737 001162 001156 MOV STMP2, STMPO ;COPY IT INTO *STMPO? 
Bass "42737 100100 001156 BIC a STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
g4 Baaoae Ate of Senate vanes HOV PORTE RACSECRO) eet THe’ oR Ive" TATUS REGISTER FROM PORT B 
ue bs 
Bose Baarts pisea? Dolled ObL1ed NOV OSTRBS.STMPL > fopy TT INTO SIMPL 
6026 034716 042737 100100 001160 BIC #ATA! VV, STMPL CLEAR PORT DEPENDENT BITS FROM THE COPY 
6027 034724 023737 OO011S6 001160 CMP STMPO, STMP1 TS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
6028 034732 001006 66S *BR IF NOT 
6069 Oar a7 3 001156 TST STMPO sREC TERS ARE THE SAME: ARE THEY ZERO ? 
6031 O34742 104046 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT- SEIZED 
032 744 0351 IMP 70$ *BYPAS THE REST OF THE CHECKS 
750 Oi 1162 001126 66%: MOV STMP2,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR -MESSAGE 
6034 756 013737 bo iged 1226 MOV PORTB, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
6035 764 113760 O01 10 MOVB § PORTB;RHCS2(RO) ; PORT B. 
6036 034772 37 001156 TST STMPO’ *SEE IF STATUS EQ O FROM PORT A. 
6037 034776 001414 BEQ 67$ *BR IF ZERO 
038 035000 013737 001216 001226 MOV PORTA, PTNBR SFETRING PORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 
H35006 013737 001164 OOlic6 MOV STMP3, SBDDAT ATA’ FOR ERROR T YPE OUT 
6040 035014 113760 001216 OO00i0 MOVB PORTA, RHCS2(RO) :SELECT PORT 
6041 O35022 005737 001160 TST STMP1’ SEE IF SORTUS’ EQ ZERO FROM PORT B. 
| 
} 
L 
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DERPPA Teb TEST RELEASE BY PORT °8’ WHEN ee SED BY PORT ’A’ 


ahs Ree TELEL 77777 1O01242 &7$ ow og LEASE ERROR’ INDICATOR 
£044 G5so3e BiS760 00011 pote te MOV 11’ eesti cat “Deve 
6045 ie 76¢ 000013 o00000 HOV #13; RHCS1(RO) nee E THE we 
itd peebe4 bt 7? OOl162 001126 68%: MOV a $BDDAT Be BIT rd WHEN RHDS1 READ 
6048 O35062 013737 OO01216 O0l226 MOV PORTA, PTN NBR 
6049 635070 3737 OOl112e4 OOl1é2 CMP $GDDAT,$ are ‘Gi £0 6K 
6050 76 001401 BEQ 69S BR IF OK FROM PORT A. 
6051 035100 1 ERROR 7 *REPORT ERROR 
b05¢ 035102 013737 OO1164 001126 69%: MOV STMP3,S$BDDAT  § ;CHECK Ripe, FOR BIT FAILURES - FROM PORT 8. 
035110 013737 001220 O01226 MOV PORTB; PTNBR “CHANGE PORT R 
6054 035116 023737 OO1124 O01164 CMP SGDDAT,STMP3  ;SEE IF READ OK FROM PORT B. 
6055 0325124 001401 BEQ 70$ :BR IF 
6056 035126 104007 ERROR 7 : REPORT ERROR 
6057 035130 O00240 70$: NOP 
pps 035132 1S: 
BOBO IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
6062 035132 001103 TSTB  SERFLG ;DID AN ERROR OCCUR ? 
6063 035136 O0141e BEQ TST27 ts 
6064 035140 001000 177570 BIT #S5W09, SWR >SEE IF LOOP ON ERROR SET (SWR9=1) 
6965 035146 OO1406 BEQ 1ST27 : T 
6066 035150 105037 001103 CLRB SERFLG SACEAR THE ERROR FLAG 
6067 035154 005937 001170 CLR STIMES “CLEAR THE MAX ITERATION COUNT 
E058 035160 000177 143724 IMP JSLPERR GO TO THE LOOP ADDRESS 
6070 
6071 EeT oP TEST CEIZE BY WRITING ATTENTION BIT 
6072 TEST 27 TEST SEIZE BY WRITING ATTENTION BIT 
et i THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
b07S ii RHAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
6077 + 
£078 *# A. WRITE THE APPROPRIATE DRIVE BIT INTO RHAS; VERIFY THAT THE DRIVE 
£079 ii IS SEIZED. 
EO8 ag : ** B. Save A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 
£082 +" SUITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THRCUGH THE 
6083 is E PORT AND VERIFY THAT THE DRIVE 1S IN NEUT ~ 
6085 4 ESELEELE RSE LE LHLS LER LES SS KRRE HELLS KEE RK E EAE TELE KER EERE ESSER EKER 
6086 035164 tsT27: 
6987 035164 O00004 SCOPE sINITIALIZE THE SCOPE HANDLER 
6088 035166 005737 001266 TST KYBCTL *PERFORMING ONLY SINGLE TESTS ? 
iis fins ieee i i fe Wer evrenen rer 
ay paeiee 137 002410 IMP bec RNS GE as TEE 
6092° 035202 012737 1 001266 1S: MOV #-1, KYBCTL iSET UE PNRLE test” INDICATOR 
6093 035210 112737 001102 2S: MOVB #27’ STSTNM TEST NUMBER 
6094 b36¢16 012737 035240 001106 MOV 8TEST27, SLPADR ‘LOAD LOOP ON TEST ADDRESS 
012737 035240 00111 MOV #TEST27,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
60% 035232 012737 007640 001170 MOV #4000.,$TIMES $;D0 4000. ITERATIONS 
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ro PER oad The arrention bt . ; 


DERPPALPiL 


6098 
60 






© SELLER ELRLAERSSEAESLSLERA LEAL A SLA SLELAL ELA LEALS RLEKFSFFAFLEFELEFLEFRFSFELES 
‘END OF 'SCOPE’ SETUP - START OF MAIN TEST 





> 6-5 -+p- 


99 
: 00 
3 oe 035240 TEST27: 
104 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
6106 O35240 113760 901216 000010 MOVB PORTA, RHCS2(RO) ;SELECT PORT #A 
6107 O35e46 905060 O0001 CLR RHDS1tRO) -SEIZE THE DRIVE 
6108 O352S2 012760 000011 ooj0000 MOV #11, RHCS1 (RO) : ISSUE DRIVE CLEAR 
6109 035260 912760 000013 900000 MOV #13, RHCS1(RO) jRELEASE THE DRIVE 
6116 O35266 113760 OOl220 O00010 MOVB poate RHCS2(RO) ;SELECT PORT #8 
6111 035274 O0S060 o000Ie CLR RHDS1 RO) SEIZE THE DRIVE THROUGH PORT ’B’ 
6ll2 035300 012760 000011 op0000 MOV #11, SpueeT (RO) ISSUE DRIVE CLE 
bil3 035306 012760 000013 o00000 MOV B13;RHCS1(RO) RELEASE THE DRIVE 
6115 4  SLERSRELLERALKL ELE RELA LEE ELE AEF ELAS LEA ALAA ELE SEA SLEKAAELALE LE LAE LESSEE 
LIE :SELECT DRIVE OTHER THAN THAT BEING TESTED 
6118 035314 113760 O0122e2 coDo10 MOVB — PORTC,RHCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
113 025322 013737 O01216 001230 MOV PORTA,SEIZPT  ;’SEIZED’ PORT ADDRESS 
blel 8 © SEKKALHKEKL AERA REARS RELA AAEKARE LEAS A LA LEE RARE ALAA ELA LALA SEL ALLA AKAREEE 
ice “WRITE THE DRIVE’S ATTENTION BIT 
6124 035330 013760 001224 oD0016 ASRI.RHAS(RO) ;WRITE THE ATTENTION BIT OF THE DRIVE BEING TESTED 
6125 035336 113760 OOlel6 o00010 HOVE PORTA, RHCS2(RO) ':SELECT PORT 
bieb 935344 013737 O01e16 OOlec6 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
$128 s REEELE SEER EELS ES SESE SED PEEL ELE ERE RE LEE EERE E ELE LER SEALE LESSEE REESE SRE 
b1e3 VERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE 
6131 035352 005760 oo0012 TST RHDS1 (RO) see THE REGISTER THROUGH PORT A ? 
6132 035356 001014 BNE 1$ YES 
6133 035360 113760 001220 oo0010 MOVB § PORTB,RHCS2(RO) *:SELECT PORT B 
6134 035366 013737 OOlec0 001226 MOV PORTB,PTNBR ;MO nove P PORT ADDRESS TO LOCATION FOR TYPEOUT 
6135 035374 005760 O000ie2 TST RHDS1 ERO) SEE REGISTER THROUGH PORT B ? 
6136 035400 001021 BNE 2S °BR IF YES 
6137 935402 1O40%e ERROR 42 *DRIVE NOT IN NEUTRAL OR SEIZED 
B18 O3SH08 137 037150 * IMP 45 *BYPASS REST OF TEST 
6140 035410 113760 001220 co001I0 ~— MOVB = PORTB, RHCS2(RO) -SELECT PORT B 
6141 035416 013737 O01220 O0l226 MOV PORTB,P TNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
6142 035424 005760 o00012 TST RHDS1{(RO RECT ISTER SHOULD BE ZERO THROUGH PORT 8 
6143 035430 001002 BNE +6 BR IF STATUS REG IS NOT 
6144 035432 000137 036302 IMP 3$ *STATUS REG IS ZERO 
6145 O3€436 194043 ERROR 43 “DRIVE IN NEUTRAL BFTER WRITE ATTN BIT 
plib 000137 037150 MP 4§ “BYPASS REST OF TEST 
6148 LELKREALAMRES EEL KEELES RE REREE EFS RSL ERE LS ESKER EE ERE E RES EERE KER E KER TREE 
149 ORT B HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 
6151 o35444 23: 
6152 O35444 005037 001236 CLR CKERR sCLEAR THE *CHECK ERROR’ INDICATOR 
6153 035450 016037 000012 001126 MOV RHDS1(RO),$BDDAT’ ;GET CONTENTS OF RHDS1 
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TEST SEIZE SY WRITING ATTENTION BIT 


MOV arto Se $BDADR ;FORM RH BASE. ADORE OF ERROR MESSAGE 


MOV she cnt opRs ony! vy $GDDAT _;WHAT REGISTER SHOULD BE 

MOV SBDDAT, $TMPO MOVE REGISTER “CONTENTS TO *$TMPO’ 

BIC #4071700, STMPO jSAVE SPECI D BITS 

CHP $GDDAT, STMPO ; COMP ARE Sie 6 

MOV $BDDAT,STMPY Copy ’BAD DATA’ 

BIC #71700, STMPY CL LEAR THE MASKED BITS 

BIS $TMPY, $GDDAT WITH GOOD DATA FOR TYPEOUT 

ERROR 10 REPORT THE ERROR 

con CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


MOV PORTB, SEIZPT fete | FOR ERROR MESSAGE 
MOV PORTA, OPPRT ;SAME AS ABOVE 


sRELEASE THE DRIVE FROM PORT 8 

MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RHCS1(RO)’ ;ISSUE RELEASE THROUGH PORT B 


;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


CLR RELERR {CLEAR "RELEASE ERROR’ INDICATOR 
MOV rT Ba at LORY WV $GDDAT ;COMPARISON CONSTANT 
MOV #RHDS1. SBDAD STER A ADDRESS’ INCR 

RBA SE ADDRESS FOR TYPEOUT 


ADD RO, SBD 
MOVB BOATERS 5 a Reece TA 
MOV PORTA,PTNBR ;MO wie PORT aboRese TO LOCATION FOR TYPEOUT 


MOV RHOS1(RO),$ TMPO ;READ STATUS REGISTER FROM PORT A 

MOVB = PORT RTB, RHC Gees cR RO) ':SELECT PORT B 

MOV PORTB|PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RHDS1[RO), Sapbar :DRIVE STATUS FROM PORT B 

BEQ 65$ BR IF Sra US FROM PORT 8 ZERO 

TST STMPO "IS STATUS FROM PORT A ZERO ? 

BEQ B55 BR IF ZERO 

ERROR *REPORT DRIVE NOT SEIZED BY PORT A 

MOV STHPO, SBDDAT § :CHECK STATUS FROM PORT A 


MOV PORTA’ PTNBR *CHANGE PORT ADDRESS FOR TYPEOUT 
CMP SGDORT, SBDDAT ; COMPARE WITH CONSTANT 


BEQ +4 

ERROR 27 REPORT REGISTER ERROR 

;RELEASE THE DRIVE FROM PORT A 

MOVB PORTA,RHCS2(RO) ;SELECT PORT 

MOV PORTA,PTNBR ;MOVE PORT apbREse TO LOCATION FOR TYPEOUT 
MOV #13,RACS1(RO)’ ;ISSUE RELEASE THROUGH PORT A 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR ;CLEAR THE *RELEASE ERROR ’ INDICATOR 
MOV #RHDS1,SBDADR  ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
ADD RO, SBDADR “ADD THE 1/0 BASE ADDRESS 


MOV wMOL!PGM!DPRIDRY!VV,SGDDAT COMPARISON CONSTANT 
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6210 O36010 113760 001216 900010 MOVB = PORTA, RHCS2(RO) ;SELECT PORT 
6211 O36016 016037 O000le OOdliée MOV RHDS1(RO), $TMPe iGET THE SB IVE” STATUS REGISTER FROM PORT A. 
B2l2 036024 013737 S0lib2 001156 MOV STMP2, STMPO :COPY IT INTO 'STMPO’ 
6213 036032 O27 37 100100 001156 BIC BATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
6214 O36C40 113760 091220 o00010 MOVB  PORTB,RHCS2(RO) SELECT PO 
6215 036046 oo0cdi2 O01164 MOV (RO), $TMP3 :GFT THE DRIVE. STATUS REGISTER FROM PORT B. 
6216 036054 913737 001164 001160 MOV STMP3, STMPL -COPY IT INTO 'STMPL’ 
6217 O36062 042737 100100 O01160 BIC ane STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
6218 036070 023737 OO11S6 001160 CMP STMPO, STMPL 15 THE STATUS REGISTER THE SAME FRCM BOTH PORTS ? 
6219 036076 001006 BNE 66S OT 
6220 036100 005737 O01156 TST STMPO : REGISTERS ARE THE SAME: ARE THEY ZERO ? 
6221 036104 O0104S SNE 68S .  3BR IF NOT 
bee 036108 104046 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
b2e3 036110 000137 036274 IMP 70$ “BYPASS THE REST OF THE CHECKS 
6224 036114 013737 001168 001126 66%: MOV STMP2, SBDDAT *SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
6225 O36le2 013737 001220 001226 MOV PORTB;PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
6226 036130 113760 O0l2e20 OD0010 MOVB § PORTB;RHCS2(RO) :SELECT PORT B. 
6227 036136 005737 OO01156 TST STMPO :SEE IF STATUS EQ O FROM PORT A. 
6228 O36142 001414 BEQ 675 *BR IF ZERO 
6229 036144 013737 001216 001226 MOV PORTA, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
6230 036152 013737 001164 OOlle6 MOY TMP3;SBDDAT  :*BAD DATA’ FOR ERROR TYPE OUT 
6231 O36160 113760 001216 Oo0010 MOVB PORTA, RHCSe(RO) *SELECT PORT A. 
6232 036166 005737 001160 TST STMPL :SEE IF STATUS EQ ZERO FROM PORT B. 
6233 036172 O010le BNE 683 BR IF NOT 
6234 035174 012737 177777 O01242 67%: MOV #-1,RELERR :SET ’RELEASE ERROR’ INDICATOR 
6235 O36202 012760 000011 o00000 MOV fil’ *RHCS1(RO)  ;CLEAR THE DRIVE 
6236 O36210 Ole760 000013 00000 MOV #13°RHCSI(RO) RELEASE THE DRIVE 
6237 036216 104026 ERROR 26 *TYPE ERROR MESSAGE 26 
6238 036220 013737 001162 001126 68%: MOV STMP2,SBDDAT LOOK FOR BIT FAILURES WHEN RHDS1 READ 
6239 O36226 013737 001216 001226 MOV ; CHANGE PORT NUMBER 
6240 036234 023737 001124 ODll62 CMP SGDOAT, STHPe ? 
6241 O36242 601401 BEQ 69S 'BR IF 0K FROM PORT A. 
6242 036244 104007 ERROR 7 : REPORT 
6243 013737 OO1164 001126 69%: MOV STMP3,SBDDAT CHECK Reine, FOR BIT FAILURES - FROM PORT B. 
036254 013737 001220 001226 MOV PORTB, PTNBR *CHANGE PORT NUMBER 
B24 023737 O01124% OO1164 CMP S$GDDAT, STMP3 SEE IF READ OK FROM PORT B. 
6246 036270 001401 BEQ 70$ 
6247 O3b272 104007 ERROR 7? REPORT ERROR 
6248 O26274 Oo0240 70$: NOP 
boys 036276 000137 037150 IMP 4g 
6251 , . | SLELRALERARKA SLL ERASE LAS AAAAHH SALE LE KLARA AERA RARE AERA AA KAAS A RAK AEHEE 
bebe THE DRIVE IS SEIZED BY PORT A. VERIFY THAT PORT B HAS PORT REQUEST SET 
6254 036302 38: 
6255 O26302 113760 001216 o00010 MOVB PORTA, RHCS2(RO)_ ;SELECT PORT 
036310 013737 OO0l2e16 OOl2c6 MOV PORTA,PTNBR ;MOVE PORT "ADORESS TO LOCATION FOR TYPEOUT 
036316 37 001236 CLR CKERR’ sCLEAR THE 'CHECK ERROR’ INDICATOR 
6258 O263e2 016037 O000l2 o01126 MOV RHDS1 (RQ) sae “GET CONTENTS OF RHDS1 
6259 036330 012737 OO00l2 Olle MOV 1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
62 0037 O01i22 ADD Hea D " [ADD RH RH11 BASE ADDRESS 
6261 O36342 012737 011700 001124 MOV Bi ewan VV SCODAT ;WHAT REGISTER SHOULD BE 
b262 036 013737 001126 001156 MOV SBDDAT,STMPO. ;MOVE RE GISTER aco NTENTS TO *STMPO’ 
03 2737 106077 001156 BIC 41¢71700 STMPO ;SAVE SPECir D BITS 
6264 036364 023737 O01124% 001156 CMP SGDDAT,STMPO COMPARE THE Oe 
6265 036372 001414 BEQ i :BR IF OK 


ae ene A 
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036374 


0 
036630 
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127 E és 
71700 T 
237 
4 E ERROR 
36420 : 0 
036426 
ABOVE 
be75 ; 
£277 ORT 
PORTA’ PTNBR 
V A 
6280 
6282 ; 
005037 ELERR 
| 
j 
| 
| 


013737 


016037 
013737 


001126 
7170 
01166 


001236 


001216 
001220 


001216 
Ole2i 
001 


001242 


001156 


001156 
001220 
001124 


ormMo 


ya etatt Natett iin 


001166 
001166 
001124 


001230 
001232 


000010 
001226 
000000 


001124 
001122 


000010 


001126 
001226 
001126 


000010 
001226 
000000 


001122 
001124 


001160 


718: 


7e$: 


MUV SBDDAT , STMPY ;COPY ’BAD DATA’ 


#71700,.$TMPY § :CLEAR THE MASKE 

Bite STNPH, bite? 3 FOR? WITH Bea BaFd Por TYPEQUT 
ERROR “REPORT TH 

COM A ERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 





MOV PORTA, SEIZPT ;ADDRESS FOR ERROR MESSAGE 
MOV PORTB, OPPRT :SAME AS 


;RELEASE THE DRIVE FROM PORT A 


MOVB PORTA,RHCS2(RO) ;SELECT P 
MOV a: sHOvE PORT apprese TO LOCATION FOR TYPEOUT 
MO #13,RHCS1(RO)’ SSUE RELEASE THROUGH PORT 


;VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 


CLR R j CLEAR "RELEASE ERROR’ INDICATOR 
MOV #ATA!'MOL!PGM!DPRIDRY!VV,SGDDAT ;COMPARISON CONSTANT 
MOV #RHDS1. SBDADR REGISTER, ADDRESS’ INCREMENT 

RO, SBDADR " ;REGISTE BASE ADDRESS FOR TYPEOUT 
MOVB BORTB. RHCS2( RO) SELECT PORT 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RHOSI{RO).STMPO sREAD STATUS REGISTER FROM PORT B 
MOVB PORTA, RHCSe(RO) -SELEC 


PORT A 
MOV RTA MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PHOS] TROD. ~sBpBAT -DRIVE STATUS FROM PORT 
BEQ 72$ sBR IF STATUS FROM PORT A ZERO 
- TST STHPO 1S STATUS FROM PORT B ZERO ? 
BEQ 728 *BR IF ZERO 
ERROR 44 *REPORT DRIVE NOT SEIZED BY PORT B 


MOV STMPO, sore CHECK STATUS FROM PORT B 
MOV PORTB, PTNBR ;CHANGE PORT ADDRESS FOR TYPEOUT 
CMP ScboAT, $BDDAT ; COMPARE WITH CONSTANT 


Q .+ 
ERROR 37" REPORT REGISTER ERROR 
;RELEASE THE DRIVE FROM PORT B 


MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RHCS1(RO)’ ;ISSUE RELEASE THROUGH PORT B 


; VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR CLEAR THE "RELEASE ERROR ’ INDICATOR 
MOV #RHDS1, SBDADR 5FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 

RO, SBDADR {ADD T HE 1/0 BASE ADDRESS 
MOV #MOL!PGM!DPRIDRY!VV,SGDDAT _;COMPARISON CONSTANT 
MOVB PORTA RHCS@(RO) ) ;SECECT P PORT’A. 

RHDS1URO), $TMP2 sGET THE ORIVE STATUS REGISTER FROM PORT A. 
MOV STMP2, STMPO :COPY IT INTO ’$TMPO” 
BIC WATAIVV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 


MOVB  PORTB RACSe( RO) joeL ECT P 
MOV RHDS1 {RO 3 :GET THE DRIVE. STATUS REGISTER FROM PORT 8. 
MOV STMP3, STHet :COPY IT INTO ’STMPI’ 





mes 
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Te? TEST SEICE SY WRITING atten? ION BIT 
S322 ra 042737 100100 901160 Bil lh Ag STP ; CLEAR a’ re eeeree BITS FROM THE COPY 
$223 pega O2e3?3s? O01156 01169 CMP STMPC, gtMP} :1S THE STATUS REGISTER THE SAME FROM BSTR POETS ? 
$324 ( 001006 SNE 4 : BR IF NOT 
632$ 036752 peri 001156 TST STMPO REGISTERS ARE THE SAME: APE THEY ZERO ” 
S326 0367 1045 BNE 7S$ :BR IF NO 
| $327 035760 OYO4E ERROR 46 REPORT DRIVE NOT IN NEUTRAL OF NOT SEIZED 
|; $8328 936762 900137 037145 IMP 773 > BYPASS THE REST OF THE cree 
i §325 O3&766 O13737 OOllée 1126 728: MOV sire, SBDDAT ;SET UP POSSIBLE BAD DATA FOR EPROP ME=SAGE 
8330 036774 O13737 O0leed O0leeb MO PORT 8: PTNBR sSEIZING PORT IF TEST SHOWS. DRIVE onOT IN NEUTRAL 
6321 O27 123780 O0ieeO 900010 MOVE PORTS: RHCS2(RO) ;SELECT PORT B. 
&332 037018 005737 001156 TST $T MPO" ;SEE IF STATUS EG O FROM PORT A. 
£333 037014 OC1414 BEG 74$ ;BR IF ZERO 
S334 937016 013737 OOl21& O0l226 MOV PORTA, 40 oF SEIZING PORT IF TEST SHOWS we NOT IN NEUTRAL 
6335 a eed pai dee 001ies MOV STMP3, $3D0AT :*BAD my. FOR ERROR TYPE 0 
6336 ll 1216 000010 MOVB PORTA, RHCS2(RO) ;SELECT PORT A 
6337 O37040 005737 0601160 TST SIMPL SEE IF STATUS EQ ZERO FROM PORT 8. 
| 6338 elena pO Loss BNE 755 BR IF NOT 
| 6339 1 177777 O0le4e 74$: MOV a-], RELERR ;SET *RELEASE ERROR*® INDICATOR 
| $8340 037054 012760 900011 9000000 MOV til’ "RHCS1(RO) sCLEAR THE DRIVE 
6341 pares Ole: 000013 od00000 MOV 813’ RHCS1(RO) sREL ae THE DRIVE 
t342 1 ERROR 3g 37 MESS 
6343 037072 013737 OOll6e OOll2e6 758: MOV pees SBDDAT sLOOK FOR BIT Lines WHEN RHDS1 READ 
| §344% 037100 013737 OOl2l16 O0lecé MOV PORTH, PTNER ;CHANGE PORT 
| 6345 aie 023737 O0lle4 O01l6e CMP SGODAT, $T TMPe sALL BITS OK ? 
| §34%5 114 001401 BEQ ges ;BR IF OK FROM PORT A 
' $8397 037116 104007 ERROR ;REPORT ERROR 
; &34e par ise Hh? OO1164% OOli2& 76$: MOV Srnp . SB0DAT ; CHECK RHDS1 FOR BIT FAILURES - FROM PORT &. 
; 6349 9371 13737 O0l2e20 OOleré MOV PORTB:PTNER T ol 
| §350 937134 023737 S0l1le4% O01164 CMP scopat, STMP3 iceE IF READ OK FROM PORT &. 
' §351 937142 O014801 BEQ 77$ . F 
| §3S2 037144 104007 ERROR 87. sREPORT ERROR 
; 62353 037146 O00e40 773: NOP ; 
: §354% 037156 4§: 
i 6356 ;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
| 6357 
: §358 037150 105737 001103 TSTB SERFLG ;DID AN ERROR OCCUR ? 
- §€359 037154 O0014le BEQ TST30 ;:BR IF NOT 
' 6360 037156 022737 001000 177579 BIT #SWO9, SWR ‘gee IF LOor ON ERROR SET (SWR9=1) 
| 6361 937164 001406 BEQ TST30 > -BR 'e NOT 
| §32 037166 105037 001103 CLRB = SERFLG . 3CLEAR THE ERROR FLAG 
| 6363 Q37172 005037 9001170 CLR STIMES :CLEAR Te MAX ITERATION COUNT 
6364 037176 000177 141706 JMP aSLPERR 60 TO THE LOOP ADDRESS 
£2C5 
63£7 ch-t-5-5-ieb-5-lelelalelelalel-i-1-4-labet-tal-t-4-1-l-lehetet-ietal-S-toledn}-i-i-1-t-belal-bel-tig}-4-i-4-hel-d-dtetal 
a4 jaTEST 30 TEST NO SEIZE WHEN °O° WRITTEN INTO ATTENTION BIT 
£370 HAVERIFY THAT THE DRIVE 13 No 1 ead WHEN A *ZERO’ IS WRITTEN INTO 
Pars * THE DRIVE’S ATTENTION BIT 
6373 + A, SELECT A privy NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
ete if BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 
es7e i B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 
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s REFERS SASAFS ERS SLELSLAL SSSA ASRESLLL AEF FAELELL ESL ASSL EFAESE FLSA 
T2Nn- 





ak 
6378 
§379 oO37202 t$720: 
6380 037202 ooo0o4 SCOPE s INITIALIZE THE SCOPE HANDLER 
6381 O37204 O0S737 O01266 TST KYBCTL PERFORMING ONLY SINGLE TESTS ? 
§382 210 001406 EQ 2s :BR IF NOT 
6383 O37ele 100002 BPL 1$ °BR IF JUST ENTERED TEST 
6384 037214 900137 002410 IMP EXEC RETURN 8 GET NEXT TEST NUMBER 
£385 O37e20 Ole7v3? 177777 OO1266 1S: MOV 8-1, KYSCTL :SET SINGLE TEST INDICATOR 
6385 O372c6 ile737 000030 O01102 23: MO #30; $TSTNM : TEST 
6297 O37284 Ole7s7 O37256 001106 MOV #TEST30,SLPRDR :LOAD LOOP ON TEST ADDRESS 
2 012737 037, 091119 MOV 8TEST30.SLPERR :LOAD LOOP ON ERROR ADDRESS 
£389 Ole727 007640 601170 MOV #4000. ,$TIMES :;D0 4000. ITERATIONS 
peas 5 RESERESSSRASSSSELESSELELASSELALS LALLA ELELELALLLLSSELELESLSLELALELAS FALE 
bse: ?END OF 'SCOPE’ SETUP - START OF MAIN TEST 
639S 037256 TEST20: 
F2g5 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
esee 037256 113760 001216 c00010 MOVB PORTA, RHCS2(RO) ;SELECT PORT sA 
| 6400 037264 COS0S0 000012 CLR RHDS1{RO) :SEIZE THE DRIVE 
| 6401 037870 012760 00001] oo0000 MOV $11,RHCSI(RO) ISSUE DRIVE CLEAR 
| §402 037676 012760 000013 000000 MOV $13°RHCSI(RO) [RELEASE THE ORIVE 
| §403 037304 113769 001220 O00010 MOVB  PORTB.RHCS2(RO) SELECT PORT #8 
| €404 037312 005050 o00012 CLR itro) :SEIZE THE DRIVE THROUGH PORT 'B’ 
| §405 037316 O12760 000011 ooc000 MOV #11,RHCSI(RO) ISSUE DRIVE CLEAR 
| §406 937324 012760 000013 coD009S MOV $13°RHCSI(RO) RELEASE THE DRIVE 
ae 037332 313768 OOle2z2 000010 MOVE  PORTC,RHCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
| £493 5p PERERERALSRSELELELA LEASE LLAELLAELALALLLAALELLLE LLL ELLE LERETETELELTEAEE 
| 410 “WRITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST 
; al 013737 001224 001156 MOV ASR1, STMPO ;STORE ATTN BIT FOR PORT A 
| $413 037346 9005137 O011S6 COM STMPO °C MENT IT 
ate 013760 OO11S& coooles MOV STMPD,RHAS(RO) WRITE THE ATTN REGISTER 
| B4Si5 5p RELAARAAAALEESLSEESLELALE LLL LALLA LE LEAL SLE LELAAALAELLALAL LLL ALLL ELELAEE 
B4i7 >VERIFY THAT DRIVE REMAINDED IN NEUTRAL 
| 6418 
| be sVERIFY THAT THE DRIVE IS IN NEUTRAL 
| B42 001242 CLR RELERR ;CLEAR THE RELEASE ERROR ’ INDICATOR 
' 6423 037364 012737 Do001¢ 001122 MOV $RHDS!,SBDADR ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
| 6424 037372 0011 ADD RO GAD THE 1/0 BASE ADDRES 
| §425 037376 Ole737 11700 001124 MO #MOL!PGM!DPRIDRY!VV,SGDDAT ;COMPARISON CONSTANT 
| Os7404 1137 dote16 000010 MOVB PORTA, RHCS2(RO) sSELECT PORT’ A. 
| 6M le O1 l2 001162 MOV HOS (RO) STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
| §498 037420 013737 001162 OO11S6 MOV TMP2, STMPD :COPY IT INTO °S$TMPO’ 
| §429 037426 042727 100100 001156 BIC BATAIVV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
| §430 037434 113760 001220 o00010 MOVB . PORTB,RHCS2(RO) ;SELECT PORT B. 
| 6431 O37442 016037 O000l2 O01164 MOV RHDSI(RO),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
| 6432 037450 013737 001164 001160 MOV STMP3, STMP] :COPY IT INTO ’STMP1’ 
£433 037456 042737 100100 001160 BIC WATA'YY,STMP1 © :CLEAR PORT DEPENDENT BITS FROM THE COPY 


‘ 
I 
' 
; 
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6434 O37464 023737 001156 901160 CMP STMPO, STMP1 ;1S THE me REGISTER THE SAME FROM BOTH PORTS ” 
ey pees 602908 BNE 54S ;BR IF 

4 7474 3? 001156 it STMPO HREGHSTERS ARE THE SAME: ARE THEY ZERO ” 
6438 cde ERROR 46 ;REPORT DRIVE _NOT IN + OR NOT SEIZED 

JMP 68$ ;BYPASS THE REST OF THE CHE 

001126 648: MOV STMP2 , $SBDDAT +gET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
O0lecb MOV PORTS, PTNER NG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
0 PORTB,RHCS2(RO) ; T PORT B. 

STMPO F_STATUS EQ O FROM PORT A. 


¢ 
4 
g 
g 
3 


ou 

Ft 
~ 
~~ 
o 

~—OW 
a 
“J 
SS 


= 


aye 


Ag IF_TEST FOS > NOT IN NEUTRAL 


¢ 
rt: 
~ 
<£ 
~ 
£ 


Bapaseue 


NG 
MOV STMP3, SBDDAT ;’BAD DATA’ FOR ERROR T 


o 
Z 
S888 SS88R 
TES FOO 
g 
oO 
3 
w 


65S : 
901226 MOV PORTA, BTNBR 2. 
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6447 037554 ooc010 MOVB PORTA,RHCS2(RO) :SELECT PORT A. 
6448 037562 0057 160 TST STMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
6449 037566 0010 BNE 66$ :BR IF NOT 
6450 037570 012737 177777 OOl242 65$: MOV #-1,RELE -SET "RELEASE ERROR’ INDICATOR 
6451 037576 Ole760 000011 00000 MOV B11°RHCSI(RO) CLE DRIVE 
6452 037604 012760 900013 MOV #13,RHCSI(RO)  ;RELEASE THE DRIVE 
6453 O376le 104021 ERROR 21 “TYPE ERROR MESSAGE 21 
6454 037614 013737 001162 001125 66S: MOV STMP2,SBDDAT  ;:LOOK FOR BIT FAILURES WHEN RHDS1 READ 
6455 037622 013737 001216 001226 V PORTA’ PTNBR “CHANGE PORT NUMBER 
6456 037630 023737 001124 OO1I&2 CMP SGODAT,STMP2 ALL BITS OK ? 
6457 037626 001401 BEQ £7§ ;BR IF OK FROM PORT A 
| §458 037640 104007 ERROR 7? SREPORT ERROR 
| §459 037642 013737 001164 001126 678: MOV STMP3,SBDDAT | :CHECK RHDSI FOR BIT FAILURES - FROM PORT 8. 
& 037650 013737 O01l220 001226 MOV PORTB. PTNOR 2 PORT 
6461 037656 OOiie4 OO1is4 CMP SGDDAT,STMP3 § :SEE IF READ OK FROM PORT B. 
} 6462 937664 001401 BEQ 685 :BR IF OK 
| 6463 037666 104907 ERROR 7? ‘REPORT ERROR 
Bed 037670 000240 68S: NOP 
| babe ;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
| 
| §468 037672 105737 001103 TSTB © SERFLG ;DID AN ERROR OCCUR ? 
| 6469 037676 O014ie BEG TST31 :-BR IF NO 
| §470 937700 032737 001000 177570 BIT 8Su09, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
| E471 001406 BEO TST *-BR IF NOT 
' 6472 037710 105037 001103 CLRB = SERFLG :CLEAR THE ERROR FLAG - 
| §473 937714 005037 901170 CLR STIMES ‘CLEAR THE MAX ITERATION COUNT 
ated 037720 800177 141164 IMP JSLPERR :GO TO THE LOOP ADDRESS 
| 6476 
' 6477 eee ae erat PORT tar TIPEIHIT Ieee tT oat 
B78 it #TEST 31 TEST PORT ’A’ TIMEOUT DOES NOT RESET DRIVE 
B80 j #VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
: Yee i A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RHDSI. 
| eyes ii 8. WRITE 1’°S INTO RHER1 THROUGH PORT ’A’. 
6486 :%# C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
6487 * NEUTRAL; THAT ATTENTION IS SET FOR PORT 'A’ AND IS NOT SET FOR 
a is PORT '8'; AND THAT BOTH PORTS SEE 1’S IN THE ERROR REGISTER. 
; 9 
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pebey RPOY QUAL CONTROLLER LOGIC 
DERPPA.P TIMEOUT DOES NOT RESET DRIVE 





731 TEST PORT gt 
6399 = REASFRERESSFLSESESELS HAE SESSLSSSEAERAESAAASASLSLALESSSEALSL SSSA 
Pugs p33 Si *st3e SCOPE s INITIALIZE THE SCOPE HANDLER 
4 77, ech 001266 TST KYBCTL Fore Orit ONLY SINGLE TESTS ” 
Pgs 77 oohoos BBC i} iBR JE IF Ri NTERED TEST 
5495 §32530 cite 002410 IMP EXEC *RETUR oF NE XT TEST NUMSER 
6497 O37742 012737 177777 OO1266 1S: MOV #-1, kyecTL 591 SINGLE tect INDICATOR 
64988 037750 1le737 000031 OO1102 23: MOVB #31 STSTNM : TEST NUMBER 
Ge fee fe Re Bie Re aL ER LES TG UL 
EERO 937063 515533 Bdoooa Sorts MOV Hee '5D0 4 ITERATIONS 
ae 
eens ,REPELELPELLLELLLLSLLLLLS ELAR ELAS ALLLLLLLAALLAA ELLA SELL SEERA LALLA ASSESS 
6505 END OF *SCOPE’ SETUP - START OF MAIN TEST 
begs 040000 TEST31: 
E508 3 8 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
6511 o40000 11 001216 O00010 MOVB PORTA, RHCS2(RO) ;SELECT PORT #A 
6512 040006 Atereo i§ CLR RHOS1 (RO) :SEIZE THE DRIVE 
6513 O400l2e 012760 11 ooo000 MOV #11,RHCSI(RO) 1 
6514 049020 012760 13 900000 MOV #13-;RHCSI(RO) ; VE 
6515 040026 113760 001220 000010 MOVE § PORTB,RHCS2(RO) :SELECT PORT #8 
6516 040034 005069 o00012 CLR RHDS1 (RO) >SEIZE THE DRIVE THROUGH PORT ’8’ 
6517 O40040 012760 000011 ocoooo0 MOV #11,RHCSI(RO) ISSUE DRIVE CLEAR 
6518 S40046 012760 000013 000000 MOV a *RELEASE THE DRIVE 
£5193 TT tiiiiiitiitititiiiititirttiiiiiititititittitttrititittitistrittt tte 
ces ;SEIZE THE DRIVE THROUGH PORT A 
F255 00S4 113760 001216 000010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT A 
6524 040062 013737 001216 001230 MOV PORTA, SEIZPT sSTORE SEIZING PORT’S ADDRESS 
6525 040070 OOSD6D coddle CLR RHDS1 (RO) 1 
6526 013737 O0i220 cO1232 MOV PORTB, OPPRT OPPOSITE’ PORT ADDRESS 
p528 ni a OEE cA ORR INR etch 
6529 “FORCE AN ERROR 
| feat 040102 012760 177777 op0014 MOV #-1,RHERI(RO)  ;SET ERROR BITS 
6533 $  SEEREAKAREASRELAASLERERASARAEA ELLA LALASLE RELA LAER REALE LA LERALALELELE 
bead -START THE TIMER 
6536 040110 001244 CLR TI ;CLEAR THE SED TINE COUNTER 
| 6537 O40114 WNRLEG Pa520 001246 MOV s2000. WATCH 3SET WATCH esi 
6538 O40l22 113760 001220 OoO0d10 MOVB § PORTB,RHCS2(RO) ':SELECT PORT B 
| p53 040130 013737 001220 O0l226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 6541 : * SRELLAAKASAASSRA LAA ESSER ALLA EAA RA LAER RA RARALRARAAAARERARAA SALAS RAAARRAE 
pete :WAIT FOR DRIVE TO TIMEOUT 
| 6544 040136 005760 oo0012 1S: TST RHDS1 (RO) ;WAIT FOR THE DRIVE TO BE RELEASED 
e545 O40142 001004 BNE 2s *BR IF DRIVE RELEASED 
| 
Re 





r 
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DERPPA.P1l T31 TEST PORT *A’ TIMEOUT DOES NOT RESET DRIVE 






















oH } pipten 005737 001246 TST WATCH ;WATCH AT ZERO ” 

654 180 001372 BNE 1$ :BR IF NOT 

ea ateg | 104036 . 25 ERROR 36 ;DRIVE NOT RELEASED WITHIN 2 SECONDS 
eed BHO 113760 OC1l2e16 000010 ; MOVB PORTA,RHCS2(RO) ;SELECT PORT 

6551 040162 013737 O0l216 O0lee6 MOV PORTA,PTNBR ;MOVE PORT abbRess TO LOCATION FOR TYPEOUT 


65 
pees s eee tt ttt itt ttt itt tittttitt itt itittitttt ttt ititiititt) 
:THE ERROR BIT (’ERR’) IN RHDS1 SHOULD STILL BE SET 





fee RON Sree ' af oar EEF Tete ence, HOTSATE 
a4 ByoSne 18035 Betis MOV ey REAOSER ae: REETSTER RODRESS 3 ERROR MESSAGE 
6559 040210 060037 ADD Ri 

§560 pvdel4 bie737 4 001124 MOV RO, SBDADR $cbbaT sunt BES 

£561 1 001156 MOV SBODAT, STMPO MOVE OPC ISTER CONTENTS TO ’STMPO’ 
6562 040230 042737 001156 BIC #1C40000, $TMPO SAVE SPECIFIED BITS 

6563 ned 023737 001156 CMP SGODAT,STMPO ;COMPARE THE BITS 

6564 O40044 001414 BEQ *BR IF OK 

6565 O400% 013737 001166 MOV SBDDAT,STMPY § ;COPY "BAD DATA’ 

6566 O40254 042737 001166 BIC 840000;STMPY  § :CLEAR THE I 

6567 O40e62 001124 BIS STMPY,$GDDAT  ;’OR’ WITH GOOD DATA FOR TYPEOUT 

6568 040270 104023 ERROR 23 : TYPE MESSAGE 

6569 O402e72 005137 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
B70 049276 64S: NOP 


£572 SPESEKELHSSE FLA ERHHS FELL AE FSHHLLASESELES SRS EARLE LS RL SL RERBRHASEALERFESE 
6573 tHE HE ERROR REGISTER SHOULD CONTAIN 1°S 
bea Mie atte reat 0011 aot (RO), sapoaT®” -GET LEO Con HTS OF RRR] Ce lcaTOR 
Pe58 bupste pieo? 14 Bot tse MOV ssa Eni S20hOR sFORM REGISTER ADDRESS. oF ERROR MESSAGE 
6578 040320 060037 ODll22 ADD 
6579 byO3e4 01 177777 001124 MOV RO, SBOAOR SGDDAT THAT R REG ore SHOULD BE 
£580 001124 OOlle6 CMP SGDDAT,$BDDAT IS THE REGISTER OK ? 
6581 O40340 001403 65S BR IF OK 
6582 O40342 104010 ERROR 10 *REPORT THE ERROR 
6583 O40344 005137 001236 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
6584 O403S0 O00240 65S: 
pees itr ATTENTION BIT FOR PORT A CHOULD STILL Be Get 
B58? tHe ATTENTION BIT FOR PORT A SHOULD STILL BE SET 
feed O4osee pees? BOOTS O01) SOY RHBST (RO), SBODAT* “SET CONTENTS OF Rribed MO UCATOR 
ee 
cea Bapsen pieoss pools bes nov arvGSL SEOAOR iF FORM REGISTER RODRESS OF ERROR MESSAGE 
| 6593 Buos7e Ol To0005 001124 MOV SATA, SGODAT ;WHAT REGISTER BE 
O40404 013737 OOlle6 001156 MOV »STMPO ' -MOVE REGISTER CONTENTS TO ’STMPO’ 
| O4O412 042737 077777 001156 BIC 8tCATA,STMPO ;SA CIFTED ers 
| §596 O40420 023737 O01124 001156 ;STMPO 0° 3C BITS 
| 6597 O40455 001414 BEQ *BR IF OK 
040430 013737 001126 001166 : T 
| 6599 O40436 042737 100000 001166 HE 
| 040444 053737 O01166 001124 
| 
| 
| 
| 


Ce ene = eee = e+ om meee. + - . . - a ee 
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DERPPA.P11 T31 TEST PORT °A” TIMEOUT DOES NOT RESET ORIVE 
b508 guouss 905137 001236 “ con CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
Bere 
6607 $3 FEREFSRELAEASSAFESLAELERASLSLAFSLSLALA SLA SFRAALKEEFESLAZELSLAELELFELRALLFRSE 
508 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
6619 o40462 005037 oo1242 CLR RELERR ;CLEAR THE RELEASE ERROR ’ INDICATOR 
ae OveE 127 O90012 001122 Hoy #RHDS1, SBDADR sFORM THE ADDRESS OF RHOSI FOR TYPEOUT 
£613 O40S00 012737 051700 001124 MOV #51700, $GDDAT ;COMPARSION ConSTAN T 
6514 O40506 113760 1216 000010 MOVE PORTA. RHCS2(RO) ;SELECT PORT A. 
6615 O40514 O1 le OOli62 MOV RHOSItRO).$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
6616 O40S22 013737 OOll62 OO11S6 MOV STMP2, STMPO ‘COPY IT INTO ’STMPO’ 
6517 040530 042737 100100 001156 BIC BATA'YV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
6518 040536 113760 001220 O00010 MOVB § PORTB,RHCS2(RO) :SELECT PORT B. 
ces Guess Bieter Mle Bie) ay RiBaL eat ™S ieepv Ty Gane gags SEOISTER FON Por b 
$621 OvO560 Sie? 100100 001160 BIC SATA'VV,STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
6622 bes7 37 001156 001160 ch SINPO, StHPL is THE ygunTus REGISTER THE SAME FROM BOTH PORTS ” 
bees = pie7e 08732 001156 st $TNPO s REGISTERS ARE THE SAME: ARE THEY ZERO ? 
| Ree IN ovo ie" ie Gees oe neh ne eto SEIZE 
6628 O40612 13737 001162 001126 67%: MOV SiMP2,SBDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
EEad OuDeSe 113760 DOSED OOODIG HOVE PORTB’RNCSE(RO) SSELECT PORT Bee ee TMS DRIVE NOT IN NEUTRAL 
| Beal BM Goer” O011Se a pee ieee JF inTuS E00 FROM PORT A. 2 
EER Biss BLS SBIRIG putea RY SIRE See FAD Daerah conan RORSGHTTVE NOT UN NEUTRAL 
| 66 DOb5E p1¢16 000010 MOVB TA,RHCS2(RO) :SELECT PORT A. ¢ 
| Pea BH O0S/727 0011 rst STMP1 iSEE IF grrtus EQ ZERO FROM PORT B. 
ee3g Supese 012737 177777 oOOl242 68%: MOV #-1,RELERR SET 'RELEASE ERROR’ INDICATOR 
| 6639 40700 Serb 600011 MOV #11;RHCSI(RO) CLEAR THE DRIVE 
| 6640 12760 0001 #13;RHCS1(RO) RELEASE THE ORIVE 
| §641 040714 1O4des ERROR : TYPE MESSAGE 26 
| 642 040716 O1 001162 00112 69S: MOV STMP2,SBODDAT LOOK FOR BIT FAILURES WHEN RHDS1 READ 
| Ewa pagrae se T0000 bolle fe BATA STI? ISON TeCHECK THE ATTN BIT 
} ; 
| 6BYS pansag 0237 1124 001162 MP SGDDAT, STNP2 ith BITS OK ? 
beYe 040746 OO 1401 BEQ 708 *BR IF OK FROM PORT A. 
| Sede O4O75= 013737 01164 OO11z6 70S: HOY STP, SEDDAT CHECK ADSI FOR. BIT FAILURES ~ FROM PORT 8. 
040766 042737 100000 OO1164 BIC #ATA, $TMP3 “DON’T CHECK THE ATTN BIT 
| b651 0 023737 001124 001164 chp $c00A T, STMP3 iSEE, IF READ OK FROM PORT 8. 
| 6653 at 104007 ERROR 7 ;REPORT ERROR 
peo 041006 Od0ce240 71S: 
ee5E 32 KELEEELHEELELELEAA SEALER ASA RATE RARER ERS ELAS REA ELELERAERESE ERA TEERE 
| 6657 ‘THE ATTENTION BIT FOR PORT B SHOULD NOT BE SET 











MO-11-DERPP-A, RPOY DUAL CONTROLLER LOGIC TEST - PART 1 MACYI1 27(732) O4-OCT-76 10:31 PAGE i38 
DERPPA.P11 731 TEST PORT °A” TIMEOUT DOES NOT RESET ORIVE 
33 
6659 O41010 113760 001220 MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
66580 041016 013737 OO0l2c0 OOle26 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
6661 041024 7 001236 CLR CKERR’ sCLEAR THE ’CHECK ERROR’ INDICATOR 
6662 O41030 O1 080012 001126 MOV RHDS1 (RO) SBODAT’ ;GET CONTENTS OF 
6663 041036 i273 000012 Oo0l1e2 MOV $BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
6664 O41044 960037 OOllee ADD RO A BBOADR sADD_RH11 BASE ADDRESS 
6665 041050 005037 001124 CLR SGODAT * WHAT REGIST ER SHOULD BE 
6666 041054 013737 OO1126 001156 MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO ’STMPO’ 
£657 O41 068 2737 077777 001156 BIC #*CATA, STMPO SAVE SPECIFIED BITS 
6568 ul 3737 001124 O01156 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
£669 041076 O01414 SE 725 *BR IF OK 
6570 041100 013737 001126 001166 MOV SBDDAT,STMPY  :COPY "BAD DATA’ 
6671 041106 042737 100000 O01166 BIC #ATA, STMPY SCLEAR THE MASKED BITS 
6672 041114 peers 001166 9001124 BIS STNPS, SGDDAT ; OR WITH GOOD DATA FOR TYPEOUT 
6573 O4lle2 104052 ERROR 52 TYPE MESSAGE 
£574 Oylles 37 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
bb75 il oO 728: 
627 ;CLEAR ATTENTION BIT FOR PORT A 
6579 O41132 113760 001216 cooc10 MOVB PORTA.RHCS2(RO) ;SELECT PORT #A 
6680 O41140 005060 o0001e CLR RHDS1tRO) ; THE DRIVE 
6681 O41144 012760 090011 opo000 MOV #11,RHCS1(RO) ISSUE DRIVE CLEAR 
6682 O411S2 Ole760 000013 00000 MOV #13,RHCSI(RO)  ;RELEASE THE DRIVE 
6533 O41160 3S: 
Peed ;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
BPE 041160 105737 001103 TSTS SERFLG sDID AN ERROR OCCUR ? 
6688 041164 001412 BEQ TST32 ts NOT 
6689 O41166 032737 001000 177570 BIT #SW09, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
6690 041174 O0!406 BEG TST32. :-BR IF NOT 
6691 041176 105037 001103 CLRB § SERFLG ; CLEAR HE ERROR FLAG 
66S 041202 005037 001170 CLR TIMES * CLEAR THE MAX ITERATION COUNT 
bb33 041206 000177 137676 IMP SLPERR GO TO THE LOOP ADDRESS 
gece 5 RELALLALLELEELLLLELLALLA LLL ALARERAELALELLLE ARLE RELA LLLALELALELE 
fe jSTEST 32 TEST PORT 'B’ TIMEOUT DOES NOT RESET DRIVE 
6638 HIVERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
| 6700 i A. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RHDS1. 
| 6706 ii B. WRITE 1’°S INTO RHERI THROUGH PORT ’B’. 
6704 *# C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
6705 1% NEUTRAL; THAT ATTENTION IS SET FOR PORT ’B’ AND IS NOT SET FOR 
! 6708 i PORT A’; AND THAT BOTH PORTS SEE 1’S IN THE ERROR REGISTER. ae 
6708 nn a AMOS NCEE EOD NO SLE LEE OA REE 
| 6709 o4l212 tsT32: 
| $710 O4lele nf s INITIALIZE THE SCOPE HANDLER 
6711 O412e14 005737 O01266 is KyBCTL i PERF ORMING ONLY SINGLE TESTS ? 
| §€712 041220 O01406 *BR IF NOT 
| 6713 O4lee2 00002 rt *BR IF JUST ENTERED TEST 
| 
| 












beneea-eil 























6720 

67e2 

6723 

6724 

E7eS 04266 
$726 

6727 

6728 

6729 041266 
6730 mice 

6731 1300 

6732 041306 

§733 041314 

6734 041322 

6735 041326 

6736 041334 
737 















6741 041342 
6742 941350 
6743 041356 
6744 041362 





















1 
6757 O41416 
6758 
6759 
6760 
6761 
B762 041424 
6763 O41 
b764 Ouluze 
6765 0414 

| 676 41440 
6767 O4l44e 
6768 1442 
6769 0414 


bea? 


012760 


113760 
013737 


3 
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IMP ‘RETURN & GET NEXT TEST NUMBER 
zz poles 1g: i vy, ae "KGET EL SINGLE, TEST INDICATOR 
f MOV best, r$LBADR GL iL0 LOOP TE T ADDRESS 
MOV LOOP ON ERROR ADDRESS 
MOV #4, $TI fngee 50 4 ITERATIONS 


1110 
001170 


000014 





s EREREREREE EE ELLE EERE EEA EEE EEE E EEE EEE EE EERE EERE EEE EE EES EEE EEE EL ES 
END OF *SCOPE’ SETUP - START OF MAIN TEST 


TEST32: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 


Nove PORTA, RHCS2(RO) sSELECT PORT #8 

MOV BL RHC 1(RO) red OR ae AR 

MOV 3,RHCS1(RO) RELEASE THE DRIV 

MOVB § PORTB,RHCS2(RO) ;SELECT PORT #8 

CLR RHDS1 (RO) *SEIZE THE DRIVE THROUGH PORT ’B’ 
MOV #11, RHCS1 (RO) *ISSUE DRIVE CLEAR 


MOV RO DRIVE 
, pannnuacssunnunecebaoubesessusekessuntsencsessrvesussutusccensusseseses 
;SEIZE THE DRIVE THROUGH PORT B 
MOVB PORTE, RHCS2(RO) ;SELECT PORT B 
MOV ORTB, SEIZPT sSTORE SEIZING PORT’S ADDRESS 
CLR ponecte RO) sWRITE RHOSL 
MOV PORTA, OPPRT :’OPPOSITE’ PORT ADDRESS 


[TAS gral OT" Spemmemaneagemearepampeencenepamesaetate uli owt 


MOV #-1,RHERI(RO)  ;SET ERROR BITS 


= SEELEASRAREEASERLAA REA REAA AAA ERA RELA LKEA REAL SEA AREA BLE LL RA LEXA ELA LEEEE 
 e TART THE TIMER 


CLR TIME Ya THE ELAPSED TIME COUNTER 
WATCH i" gouo MS 


MOV #2000.,WATCH  ;SET 
MOVB § PORTA,RHCS2(RO) *;SELECT PORT 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
2 LREREEERX ELS LEE LE KLASSE LEE SRA LAE EES REESE KEELER RE SLES ES SEE RARER EES ERE RLY 
‘har T FOR DRIVE TO TIMEOUT 
1S: TST RHDS1 (RO) sWAIT FOR THE DRIVE TO BE RELEASED 
BNE $ *BR IF DRIVE RELEASED 
TST WATCH SWATCH A T ZERO ? 
BNE 1$ NOT 
is ERROR 36 DRIVE NOT RELEASED WITHIN 2 SECONDS 
Y MOVB  PORTB,RHCS2(RO) ;SELECT POR 
MOV PORTB;PTNBR ;MOVE PORT PDDRES TO LOCATION FOR TYPEOUT 











TEST PORT °S’ TIMEOUT DOES NOT RESET DRIVE 


5p RERRREELRAAALA AREAL ERLE REALE RARE AREAL R ELLER RELA RERAAL ARE RE REE ERLEEE 


ROSE 
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DERPPA.P11 132 
6770 
6771 Ss PEARL AE RAARARERLE AAR AER EA LAER AAA LAL ALAA ARAS LA AAE LA LARALELE LALA EFL ELSES 
b772 >THE ERROR BIT (’ERR’) IN RHDS1 SHOULD STILL BE SET 
6774 O414S&6 005037 001236 CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
6 gyi46e 916037 0 1g 001126 MOV RHDS1(RO),$BDDAT’ ;GET CONTENTS OF RHDS1 
5 i4 12737 O000le OOliee MOV #RHDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
6777 O41476 060037 001122 ADD RO, $BD “ADD RH11 BA DRESS 
6778 out 12737 040000 901124 MOV #ERR $0087 s WHAT REGISTER SHOULD BE 
3 1510 013737 001126 001156 MOV SSDDAT,STMPO ’ ;MOVE REGISTER CONTENTS TO ’STMPO’ 
6780 O41516 042737 137777 001156 BIC #tC4O000,STMPO :SAVE SPECIFIED BITS 
£78 puibed 3737 001124 601156 CMP SGDDAT,STMPO © ; COMP 
§ 1 1414 SEQ *BR IF 
6783 O41534 013737 001126 001166 MOV SBDDAT,STMP4Y  :COPY *BAD DATA’ 
6784 o41542 040000 OO1166 BIC #4CO00,STMPY § ;CLEAR THE MASKED BITS 
6785 O41550 053737 OO1166 901124 BIS STMPY,$GODAT  ;’OR’ WITH GOOD DATA FOR TYPEOUT 
6786 O41SSE 104023 ERROR 23 * TYPE MESSAGE 
6787 O41560 005137 001236 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
6788 041564 000240 64$: NOP 
6730 5, REREREREAER REL AAA EL ERE LE LE ALLE LALA LA LARA KERR REEE RE LLERE ERE LEEEEELLELES 
731 : THE ERROR REGISTER SHOULD CONTAIN 1’S 
6793 041566 001236 CLR CKERR ;CLEAR THE ’CHECK ERROR’ INDICATOR 
6794 041572 016037 O00014 001126 MOV RHERI(RO),S$BDDAT’ ;GET CONTENTS OF RHERI 
6795 041600 012737 000014 OOll22 MOV #RHER1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
6796 O41606 001122 ADD RO sADD RH11 BASE ADDRESS 
6797 Bible 012737 177777 001124 MOV #177777, $GDDAT WHAT REGISTER SHOULD BE 
6798 941620 023737 001124 OOll26 CMP SGDDAT,$8DDAT 31S THE REGISTER OK ? 
6799 041626 001403 BEQ 6S$ -BR IF 
6800 041630 104010 ERROR 10 "REPORT THE ERROR 
6801 O41632 005137 001236 COM CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 
6802 O41636 O00240 65$: NOP 
6804 5g SERRE RAERA REEL AAL LALA RA ALAA AAA LAA REAL LE REL AERA ELA LE REL ERE RELER ALLL ERE 
6805 : THE ATTENTION BIT FOR PORT 8 SHOULD STILL BE SET 
een BoP 041640 001236 CLR CKERR sCLEAR THE *CHECK ERROR’ INDICATOR 
6808 041644 016037 O000l2 001126 MOV RHDS1(RO).S$B8DDAT’ ;GET CONTENTS OF RHDS1 
6805 941652 012737 O00012 O01122 MOV #RHDS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
6810 O41660 960037 0011 ADD RO : RESS 
6811 O41664 012737 tien 001124 MCV #ATA,SGDDAT ;WHAT REGISTER SHOULD BE 
6812 041672 013737 O01126 001156 MOV SBDDAT, $ “MOVE REGISTER CONTENTS TO *STMPO’ 
6813 041700 042737 077777 001156 BIC #tCATA,STMPO ;SAVE SPECIFIED BITS 

| §814 041706 023737 001124 001156 CMP SGDDAT , $T sCOMPARE THE BITS 
6815 O41714 001414 BEQ 66S *BR IF OK 
6816 O41716 013737 001126 001166 MOV SBDDAT,STMP4Y  ;COPY ‘BAD DATA’ 
6817 041724 042737 100000 001166 BIC #ATA, STMPY *CLEAR THE MASKED BITS 

| 6818 041732 053727 OO1166 001124 BIS STMP4,SGDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 

| 6819 041740 104041 ERROR 41 *TYPE ME 
6820 O41742 005137 001236 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
6821 O41746 O00240 663: NOP 
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tHE ATTENTION BIT FOR PORT A SHOULD NOT BE SET 





1 aT a i RPOY QUAL CONTROLLER LOGIC TEST - PART 1 MACY11 27(732) 
DERPPA. T32 EST PORT *8°’ TIMEOUT DOES NOT RESET DRIVE 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 


;CLEAR THE "RELEASE ERROR ’ INDICATOR 
jFORM THE ADDRES Ponce. FOR TYPEOUT 


eae CONST ANT 

y He DRIVE STATUS REGISTER FROM PORT A. 
gee PRT TOEPENDENT BITS FROM THE COPY 
THE DRIVE STATUS REGISTER FROM PORT B. 


By IT 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
ae THE zTATUS REGISTER THE SAME FROM BOTH PORTS ” 


ERS ARE THE SAME: ARE THEY ZERO ? 
ee, ORIVE NOT IN NEUTRAL OR NOT SEIZED 
THE REST OF THE CHECKS 


; BYPASS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


CT PORT B. 
; SEE Ma STATUS EQ O FROM PORT A. 


SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;*BAD DATA’ Ba ERROR TYPE OUT 


BEE IF STATUS EQ ZERO FROM PORT B. 
T on te te ERROR’ INDICATOR 


RELERR 
#RHDS1 , SBDADR 


STMP 

STMP3, STMP] 

saree, STMP1 
TMPO, STMP1 

2) 3 

STMPO 

695 

46. 

STMP2, SBODAT 

PORT 


PTNBR 
PORTB,RHCS2(RO) ; 
STMPO’ 


68S 

PORTA, cer 
$TMP3, SBDDAT 
PORTA, RHCS2(RO) ; 
STNP1" 


#1 

uA Rest cao 
STMP2, SBDDAT 
PORTA’ PTNBR 
#ATA, $TMP2 
SGDOA , STMP2 
$TMP3, SBDDAT 
PORTB; PTNBR 
#ATA, STMPS 
SGDDAT, STMP3 
zis 


PORTA, BNR oe 
PORTA, PTNBR 


;CLE 
RHDS1 (RO) sspont’ 


#RHDS1, SBDADR 


04-OCT-76 10:31 PAGE i41 





TYPE ERROR MESSAGE 26 
Tok FOR BIT FAILURES WHEN RHDS!1 READ 
PORT NUMBE 
a ee fT THE ATTN BIT 
hee FROM PORT A. 
iReeer RHOS1 FOR BIT FAILURES - FROM PORT B. 


;CHANGE P 
;DON’ T CHECK THE ATTN BIT 
Bre READ OK FROM PORT 8. 


Move PORT "ADORESS TO LOCATION FOR TYPEOUT 
"CHECK ERROR’ INDICATOR 


ENTS OF R 
;FORN REGISTER ADDRESS OF ERROR MESSAGE 
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DERPPA. P11 T32 TEST PORT °8” TIMEOUT DOES NOT RESET DRIVE 
6882 042332 060037 O01122 ALD RO, SBDADR sA00 PHU BASE ADDRESS 
6883 042336 905037 001124 CLR $CODAT T REGISTER SHOULD BE 
6884 O4es42 013737 O01 1e6 001156 Nov SE0DAT, STNEO ities REGISTER CONTENTS TO *STMPO’ 
Rissep gages Brr7e4 Bot tee Ri gibch thes? COMER FE atte 
pisses TERE 11 ony SBODAT, STMPY OPY 
pees BuS39q 34353 Opaage B61 168 BIC $509 StMPy le BAD al PACKED B 
6890 O4e402 053737 OO1166 001124 BIS STHPY. SGDDAT  ;’OR’ WITH GOOD at Por TYPEOQUT 
6891 O4241 104032 ERROR 52 ‘TYPE MESSAGE S2 
6892 O4e4l2 005137 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
£833 o42416 900240 72$: NOP 
BBS ;CLEAR ATTENTION BIT FOR PORT B 
6897 O42e420 113760 OO01220 o00010 MOVB PORTB,RHCS2(RO) ;SELECT PORT #8 
6898 O42426 O0S060 o00DI2 CLR RHDS1{RO) THE DRIVE 
6899 042432 012760 O00011 opp000 MOV #11,RHCS1(RO) ISSUE DRIVE CLEAR 
6900 O42440 O12760 900013 o00000 MOV #13,RHCSI(RO) RELEASE THE DRIVE 
6301 D4e446 3S: 
ba03 IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
6905 o42446 105727 001103 TSTB  SERFLG :DID AN ERROR OCCUR ? 
6905 O42452 O014!1e BEQ TST33 ts N 
6907 042454 032737 001000 177570 BIT #SW09, SUR :SEE IF LOOP ON ERROR SET (SWR9=1) 
£908 O4S462 001406 BEQ TST33 BR IF NOT 
6909 O42464 105037 001193 CLRB = SERFLG -CLEAR THE ERROR FLAG 
6910 942470 005037 170 CLR STIMES “CLEAR THE MAX ITERATION COUNT 
b3i 042474 600177 eet IMP JSLPERR :GO TO THE LOOP ADDRESS 
£913 
£314 5 REAAAAAAERLLAE LEER ARAL LE LAA LE LE LE LELE RELA ALLELE RE EE EE ERERELEAEE 
B31 sTEST 33 TEST RELEASE THROUGH PORT ’A’ WITH ERRORS SET 
6917 :#VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
b318 is BITS ARE SET IN THE DRIVE. 
6320 i A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RHDS1. 
bee i . WRITE 1°S INTO RHER1 THROUGH PORT ’A’. 
6924 te 6C. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT THE °GO’ 
6925 * ei HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
| b3eb i HAT RHER] HAS NOT BEEN CLEARED. 
| b3c8 ii . (CLEAR RHERI BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’A’. 
6930 j# E. ISSUE A RELEASE COMMAND THROUGH PORT °AY. VERIFY THAT_THE DRIVE 
boa ii RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
| £933 ° LEEKS ESS SELES EE REE REE E RR ERER EE REESE EES EER NRA LER EERE RRRS RES SRE 
6934 o42500 15733: 
6935 042500 op0004 SCOPE s INITIALIZE THE SCOPE HANDLER 
69326 O42502 005737 Oo01266 TST KYBCTL ‘PERFORMING ONLY SINGLE TESTS ? 
| 6937 42506 001406 BEQ 2 BR IF NOT 
| 
| 
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MACY Yi 27(73 ) O4-OCT-76 10:31 PACE 343 
BPL. 1$ BR IF ust ENTERED TEST 
IMP EX XEC “RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1, KYBCTL ;SEI SINGLE | TEST INDICATOR 
2g: MOVB = #33" : TEST 


NM 
MOV HTEST 33, $LPADR LOAD LOOP BN TEST ADDRESS 
MOV wTESTSS, $LPERR :LOAD LOOP ON ERROR ADDRESS 
MOV »»STIMES $;D0 4000. ITERATIONS 


$ © LELKEALEKEALAL LAKES SEALE RAAF RAE LSLELLLAA LK LE KALLE ERE LHL AALELLEZELESE 
*END OF *SCOPE’ SETUP - START OF MAIN TEST 
TEST33: 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA,RHCS2(RO) ;SELECT PORT #A 
RHDS1 (RO) -SEIZE T 
MOV al, 1, RHCS1 (RO) ISSUE DRIVE CLEAR 
MOVB poatee RHCS2(RO) ;SELECT PORT #8 
CLR RHDS1tRO) *SEIZE THE DRIVE THROUGH PORT °B’ 
Nov all, 1 RHES! (RO) j ISSUE DRIVE CL LEAR 
sc aususursnaounuscsdnatsasebaceubescuntbanssepsserssenauaseneuseesnsaaes 
;SEIZE THE DRIVE THROUGH PORT A 
MOVB PORTA, RHCS2(RO) “SELECT PORT 


MOV PORTA, SEIZP sStO ORE SEIZING PORT’ S ADDRESS 
CLR RHDS1 (RO) E 
MOV PORTB, OPPRT ;"OPPOSITE’ PORT ADDRESS 


SRnRE tae RR ce ee are ee ee 


MOV #-1,RHERI(RO) ;SET ERROR BITS 
MOV #13:;RHCSI(RO)  ;ISSUE A RELEASE COMM 


AND 
CLR CKERR sCLEAR THE *CHECK ERROR’ INDICATOR 
MOV RHCS1 (RO) SBDDAT’ ;GET CONTENTS OF RHCS1 
HOV HCS1, $BDADR FORM REGISTER RODRESS_OF ERROR MESSAGE 


$B *ADD RH11 
MOV m0 $6 SGDDAT ;WHAT REGISTER SHOULD BE 
MOV SBODAT, STMPO MOVE REGISTER CONTENTS TO ’STMPO’ 
BIC #tC4012, STMPO . Save SPECIFIED BITS 
SGDDAT,$TMPO = ’;COMPARE THE 


MOV -« $BODAT, STMPY i "BAD DATA’ 
BIC #4012, $TMPY ;CLEAR THE MASKED BITS 


BIS STMP4, SGDDAT ;°OR’ WITH GOOD DATA FOR TYPEOUT 
ERROR 25 ;TYPE MESSAGE 25 
gus Kon CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR ;D1D GO’ BIT RESET ? 
BNE +6 ; NOT 
JMP 1$ ;'GO" BIT RESET 
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DERPPA.P1l 733 TEST RELEASE THROUGH PORT °A’ WITH ERRORS SET 

6994 043014 012760 oo0040 oD0010 MOV #CLR RHCS2(RO) ;INIT THE RH11 
6995 042002 113760 001216 000010 MOVE PORTA, RHCSe(RO) -SELECT PORT A 
6996 043030 013737 OO01216 001226 MOV PO NB rove PORT nogRESS TO LOCATION FOR TYPEOUT 
6997 b43036 O1e760 900013 o00d00 MOV #13, Ries tC RO) RELEG SE THE DRIVE THROUGH FORT 
6338 3044 000137 043564 IMP 23 *BYPASS THE REST OF THE TEST 
7000 © SLEEK ELELKE RELEASE HALSALL LEELA EKA LE LA LE RARE LLL FKL A REE RE LSE FLL FF FES 
2001 I ERIFY THAT DRIVE IS STILL SEIZED BY PORT A 
7003 043050 1$: 
7 043050 113760 001220 op0010 MOVB © PORTB,RHCS2(RO) ;SELECT PORT 8 
7005 043056 013737 O0le20 O01226 MOV PORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7008 0430684 005037 O01236 CLR . CKERR’ *CLEAR THE *CHECK ERROR INDICATOR > 
7007 043070 016037 O000l2 001126 MOV RHDS 1 (RQ) sacost! “GET CONTENTS OF 
7098 043076 012737 O000le OOllee MOV #RHDS1, SBDADR sFORM REGISTER ADbRESS oF ERROR MESSAGE 
7009 043104 060037 001122 ADD RO HOBOARR A 1 BASE ADDR 
7010 043110 005037 001124 CLR SGODAT STRAT RREGISTER SHOULD BE 
7011 O43114 023737 001124 001126 CMP SGDDAT, SBDDAT 315 THE REGISTER OK 
7012 O43122 001403 BEQ S$ -BR IF 
7013 43124 104024 ERROR 24 : TYPE MESSA GE 24 
7014 042126 005137 001236 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
7015 043132 o00240 65$: NOP 
7016 043134 113760 001216 o00010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT A 
7917 O43142 013737 OOlel6 OOlec6 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7018 043150 005037 001236 CLR CKERR’ sCLEAR THE ’CHECK ERROR’ INDICATOR 
7019 043154 016037 000014 001126 MOV RHER1 (RO) $BDDAT’ ;GET CONTENTS OF 
7020 043162 012737 OO0014 ODllee MOV #RHERI,SBDADR ;FORM N REGISTER ADDRESS OF ERROR MESSAGE 
7021 043170 060037 OD1l22 ADD RO ;ADD_RH11 BASE S 
7 943174 012737 177777 001124 MOV ro, S208 $GDDAT HAT REGISTER SHOULD BE 
7023 O4se02 023737 O01ie4 ODllc6 CMP SCDDAT, $BDDAT 15 THE REGISTER OK 
7024 001403 BEQ 6$ OK 
7025 O43212 104010 ERROR 10 REPORT THE ERROR 
7026 043214 005137 001236 COM CRERR :SET THE REGISTER COMPARE ERROR INDICATOR 
208? 043220 900240 663: NOP 
7623 : EEK E ELLA LEH ASAE KLE RLS EL EES RE EERE EFA EEF KLE LEK EE KEEL ALA FEES REE LE RSS ELE 
7030 .  3QLEAR THE ERRORS THROUGH PORT A 
7032 043222 012760 000011 oof000 MOV #11,RHCS1(RO) ;ISSUE A DRIVE CLEAR 
epee 5 5 REE REE ELE ERE EEEE REA E REE E ELE RAE E ERR RE ERA EELERE EEE RE REEL REELS RELERE 
7036 sRELEASE THE DRIVE FROM PORT A 

| 7038 O43230 113760 001216 000010 MOVB PORTA,RHCS2(RO) ;SELECT PORT 

| 7039 043236 013737 O01216 O0le26 MOV PORTA;PTNBR ;MOVE PORT abbRese TO LOCATION FOR TYPEOUT 
roo 043244 012760 000013 o00000 MOV #13,RHCS1(RO)’ ;ISSUE RELEASE THROUGH PORT A 

| rote ;VERIFY THAT THE DRIVE IS IN NEUTRAL 

| 7044 043252 005037 oDl124e CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 

| 7045 043256 012737 000012 od1122 MOV #RHDS1, SBDADR jFORM THE ADDRESS OF RHDS1 FOR TYPEOUT 

' 7046 043264 060037 001122 ADD RO, $BDADR vind?! HE 1/0 BASE ADDR 

| 7047 043270 012737 011700 001124 MOV #MOL! PGM! DPR! DRY! VV SGD0AT ;COMPARISON CONSTANT 
7048 043276 113760 001216 000010 MOVB  PORTA,RHCS2(RO) ;SELECT PORT’A. 
7049 043304 016037 O000le OOllée MOV RHDS1{RO),S$TMP2 :GET SHE ORIVE STATUS REGISTER FROM PORT A. 
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DERPPA.P} 33 EET RELEASE THROUGH PORT °Q’ Arte ERRORS SE 

7950 O43312 O13737 O01162 902156 MOV STMP2, STMPO “COPY IT INTO ‘$TMPO' 

7OE1 043320 O4e737 100190 001156 BIC BATA' VV, STNPO ;CLEAR PORT DEPENCENT BITS FROM THE COPY 

7552 043326 113760 O012e0 900010 MOV PORTB,RHCS2\RO) :SELECT POR 

7053 043334 016037 900012 901164 MOV RHDSI{RO}.S$TMP3 :GET THE OF ve" STATUS REGISTER FROM PORT &. 

754 043242 013737 OC11E4 O0:160 MOV STMP3, STMP1 ‘COPY IT INTO ’STMP1’ 

TOSS 043350 p4732 100100 oO0:160 BIC SATAY. STMP]  :CLE@R PORT CEPENDENT BITS SROM THE C 

7056 943356 923737 C9115 OCiiE0 CMP STMPO, STMPL °75 THE STATUS REGISTER THE SAME PEoH BOTH PORTS ? 

7057 043364 901006 BNE &7 :BR IF NO 

7058 737 «(OOL1S6 TsT STMPO “REG? STERS ARE THE SAME: ARE THEY ZERO ? 

7053 O43 id45 BNE 23 BR IF ON 

7059 OM LOSO4E ERROR 4 iREP ORT DRIVE NOT IN NEUTRAL 0 OR NOT SEIZED 

7061 Base 900137 o43s62 ; IMP cis BY PASS THE REST OF THE CHECKS 

7062 O43402 013737 OOCLIE2 OOLlzZ6 &7$: OV STMP2,SBDDAT  :SET SSISLE BAD DATA FOR ERROR MESSAGE 

7053 O43410 013737 O0le20 0012c6 MOV PORTE, PTNER ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

7064 O43416 113760 091220 00015 MOVE PORTB;RHCS2(RO) :SELECT PORT B. 

7065 043424 005737 O011S6 TST STMPO' :SEE IF STATUS EQ 0 FROM PORT A. 

7OEE 043430 001414 BEQ £53 *BR IF ZERO 

7067 0434 013737 001216 o01226 MOV PORTA, PTNER *SEIZING PORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 

7068 O04 01 SO1164 OOlle& MOV STMP3,SBDDAT  :*B5AD DATA’ FOR ERROR TYPE 0 

7063 O43446 113760 O01e16 O00010 MOVE TR,RHCS2(RO) ;SELECT PORT A. 

7070 43454 005737 OO1165 TST STMP! : SEE IF STATUS EQ ZERO FROM PORT 8. 

7071 ON3469 O010le BNE :BR IF NOT 

7072 O4362 012737 177777 O0l242 68S: MOV 1,RELERR :SET "RELEASE ERROR’ INDICATOR 

7073 042470 012760 99001: 900009 MOV fii" »RHCS1 (RO) : CLEAR THE DRIVE 

7074 O43476 O12760 000013 000000 MOV 813,RHCSI(RO)  ;RELEASE THE ORIVE 

7075 O43S04 104926 ERROR ;TYPE ERROR MESSAGE 26 

7076 O43506 013737 OOD1162 OO1126 69S: MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RHDS! READ 

7077 pete 13737 OO01218 001226 MOV PORTA, PTNER *CHANGE PORT NUMBER 

7078 OM 37 001124 OO11b2 CMP SGDDAT,STMP2 :ALL BITS OK ? 

707€ 043530 001401 BEQ 20s *BR IF OK FROM PORT A. 

7080 043532 104007 ERROR *REPORT ERROR 

7081 943534 013737 OO1184 001126 70%: MOV S13, SBDDAT § ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT 8. 

7082 O43542 013737 OOle20 O0le26 MOV PORTB: PTNBR :CHANGE PORT 

7083 043550 023737 OO1i2e4 OO1164 CMP sc0at, $TMP3 :SEE IF READ OK FROM PORT B. 

7084 643556 001401 BEO 71§ :BR IF OK 

7085 043560 104007 ERROR 7 ?REPORT ERROR 

70B6 O43S62 O00e40 71$: NOP 

7087 043564 

apes ;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 

ohat 042564 105737 001103 TSTB = SERFLG ;DID AN ERROR OCCUR ? 

ohas pusess foe757 op1000 177570 Bre NaS, SuR AEE TF [OOP ON ERROR SET (SHR9=1) 

708 04 Bai 486 a TST34" 2s NOT 

7095 043602 105037 001103 CLRB  SERFLG *CLEAR THE ERROR FLAG 

70% 043606 005037 001170 CLR STIMES *CLEAR THE MAX ITERATION COUNT 

7097 O42%i2 000177 i3Se7e Ji @SLPERR *GO TO THE LOOP ADORESS 

7033 s REEAAEAALELELL LEASE SASELASLLLLLLALSEARAASLELAALALALARLAELELLSLE 

7100 it TEST 34 TEST RELEASE THROUGH PORT 'B’ WITH ERRORS SET 

7102 j VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 

7103 *# S ARE SET IN THE ORIVE. 

7105 *# A. SEIZE THE DRIVE THROUGH PORT °B’ BY WRITING O’S INTO RHDSI. 


a ee ee 





— 
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DERPPA.PL! 34 TEST RELEASE THROUGH PORT °S° WITH ERRORS SET 
7105 :* 
cite :* 8. WRITE 1'S INTO RHER1 THROUGH PORT ’B’. 
21093 :# ¢. ISSUE A RELEASE COMMAND THROUGH PORT °8’. VERIFY THAT THE °GO’ 
7110 :* BIT HAS BESET, THAT THE DRIVE HAS NOT RETURNED TO NELITRAL, AND 
guid i? THAT RHERI HAS NOT BEEN CLEARED. 
ris i+ D. CLEAR RHERL BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’2”. 
731s :# £. ISSUE @ RELEASE COMMAND THROUGH PORT °B’. VERIFY THAT THE DRIVE 
cii8 i RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
73 ig : RESLSESSSSSSSSEKLAAASSESSLSSFSSESSSSSLSEPSLSSFSLSSSELARELSELESESLESSE 
7118 043616 $ST34: 
7120 043616 000004 SCOPE s INITIALIZE THE SCOPE HANDLER 
7iel 43620 001265 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
7l22 043624 001406 BEQ 2g :BR IF NOT 
7l23 043626 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 
7124 043630 000137 902410 IMP EXEC RETURN & GET NEXT TEST NUMBER 
7125 043634 012737 177777 001266 15: MOV $-1,KYBCTL *SET SINGLE TEST INDICATOR 
7lee 042642 112737 CO1iC2 28: MOVE 834’ STSTNN TEST NUMBER 
7127 O43650 012737 043672 001106 MOV 8TEST24,SLPADR LOAD LOOP ON TEST ADDRESS 
7ize 043656 O12737 043672 001110 MOV STESTS4SLPERR :LOAD LOOP ON ERROR ADDRESS 
123 O43664 012727 O07640 001170 MOV #4000. ,$TIMES +:;00 4000. ITERATIONS 
| 35 
| piss as REEFS SESPESLS LE SPS REPL ES PSL SLHLE GEES SEA LESS SPREE EASA TS EAE SES HSA ESS ESEG 
| siz *END OF *SCOPE’ SETUP - START OF MAIN TEST 
2138 043672 TEST34: a 
| 71g ;CLEAR ATTENTION BITS FOR BOTH PORTS 
| 7138 043672 113760 o01216 oD0010 MOVB PORTA, RHCS2(RO) ;SELECT PORT 8A 
| 7190 043700 000012 CLR RHDS1{RO) *SEIZE THE DRIVE 
| 7141 043704 012760 00001] 00000 MOV #11,RHCSI(RO) ISSUE DRIVE CLEAR 
7142 O43712 O1e760 000013 co0000 MOV #13°RHCS1(RO) RELEASE THE ORIVE 
' 7143 043720 113760 001220 000010 MOVB §PORTB.RHCS2(RO) :SELECT PORT 88 
| 7144 043726 005069 o000le CLR RHD tro) SEIZE THe DRIVE THROUGH PORT '8’: 
7145 943732 012760 90001! oon000 LI,RHCSI(RO) ; DRIVE CLEAR 
| 27°46 0643740 912760 000013 000000 MOV 13;RHCSI(RO) 3 
A ld : Peri tiititiiiti titi iit iii itt itt ii titii titi titer eee 
7148 ;SEIZE THE DRIVE THROUGH PORT 8 
Fisk BET 1m Oelaee GENS AIP FORE LEST AGREE Er Pons ecoess 
5ies 043762 lz CLR t tRBy ‘ HRITES Sl 
| 7158 043766 013737 O0l216 001232 MOV PORTA, OPPRT **OPPOSITE’ PORT ADDRESS 
7iSé 32 SPEERELAEREES SEES PES LER REF RERLRERELKEREAERERSE LARS ERR LEHRER ELE RRREREAE 
| 2p ;FORCE AN ERROR 
tee 043774 012760 177777 oO00014 MOV #-1,RHERI(RO) ;SET ERROR BITS 
_ 7160 o44002 012760 000013 000000 MOV #13'RHCSI(RO)  ;ISSUE A RELEASE COMMAND 
| 7461 044010 005037 001236 CLR CKERR ‘CLEAR THE "CHECK ERROR’ INDICATOR 
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DERPPA.P1! ™ TEST RELEASE THROUGH PORT °8’ drtH ERRORS SET 
71 0 16037 009000 o01126 MOV RHCSI(RO),SB80DAT ;GET CONTENTS OF RHCS1 
oie Reape leva? 000000 OOllee MOV BRHCS1.SEHADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
7164 ? 001128 ADD RO, $8 sADD RH11 BASE ADDRESS 
7165 le737 D040le 001124 MOV ANE: SGDDAT ;WHAT REGISTER SHOULD BE 
186 1 061126 o0:156 MOV SB0DAT. $TMPO REGISTER CONTENTS TO *STMPO’ 
7167 O44 04 173765 OO1156 BIC #tC4012, STMPO Save SPECIFIED BITS 
7168 923737 O0l1e4 001156 CMP SGDDAT, STMPO COMPARE THE 
7169 O44064 001414 BEQ 64S 5R IF OK 
7170 O44 01 001126 001165 MOV SBODAT,STMP4Y COPY "BAD DATA’ 
7:71 O44074 42737 OO4Ole OO1IES BIC 84012, yh ae -CLEAR THE MASKED BITS 
7i72 O44102 001166 001124 BIS STMP4;S$GDDAT  ;°OR’ WITH GOOD DATA FOR TYPEOUT 
7173 O44110 1 ERROR 25 TYPE MES 
7174 O44112 005137 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
7175 O44118 900240 64S: NOP 
7178 044120 005737 001236 TST CKERR :DID 'GO’ BIT RESET ” 
7177 O441e4 001002 BNE +6 :BR IF NOT 
7178 O44126 000137 O44 IMP i$ ;*G0’ BIT RESET 
7179 O44i3e 012760 Baaos8 000010 MOV SCLR,RHCS2(RO) INIT THE RHII 
7180 O44140 113769 901220 o00010 MOVB  PORTB,RHCS2(RO) ":SELECT PORT B 
7181 O44146 013737 OOle2eD O01226 MOV PORTE; PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7182 O44iS4 012760 900013 oO000C0 MOV #13,RHCS1(RO)’ ;RELEASE THE DRIVE THROUGH PORT B 
183 O44162 000137 o44702 IMP 2g :BYPASS THE REST OF THE TEST 
¢ 
718s . teRIFY THAT DRIVE Ig GTILL GELED BY PRT ee 
2186 ;VERIFY THAT DRIVE IS STILL SEIZED BY PORT B 
i 
7188 OY4!66 18: 
7189 OY4i66 113760 001216 o00010 MOVB PORTA,RHCS2(RO) ;SELECT PORT 
7190 944174 013737 O01216 001226 MOV PORTA,PTNBR ;MOVE PORT abORESS TO LOCATION FOR TYPEOUT 
7191 O44202 005037 D016 CLR CKERR’ ;CLEAR THE *CHECK ERROR’ INDICATOR 
719 O44 016037 le 001126 MOV RHDS1 (RO) SBDDAT’ ;GET CONTENTS OF RHDS1 
7193 044214 012737 OO0Dle OOliee MOV 1,S$BOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
7194 O44222 O60037 001122 ADD RO aA SBDABE "300 RH11 BASE ADDRESS 
7195 O44e26 001124 CLR SGODAT *WHAT REGISTER SHOULD BE 
71% O44232 023737 001124 001126 CMP SGDDAT,SBDDAT ;IS THE REGISTER OK ? 
7197 O44240 001403 BEQ 65S “BR IF OK 
7198 OWed2 104 ERROR 24 5 TYPE, MESSAGE 24 
7199 O44244 005137 001236 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
7200 O44250 000240 65S: NOP 
7201 O44e52 113760 001220 000010 MOVB PORTB, RHCS2(RO) -SELECT PORT B 
7e0e O44260 013737 O0le20 O0l226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7203 O44266 005037 001236 CLR CKERR’ sCLEAR THE ’CHECK ERROR’ INDICATOR 
7204 O4427¢2 016037 14 001126 MOV RHERI(RO),SBDDAT’ :GET CONTENTS OF RHER1 
7205 O44300 012737 po0014 001122 MOV aRHERL SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
7206 O44306 060037 0011 ADD ;ADD_RH11 BASE ADDRESS 
7207 O44312 012737 001124 MOV ennai SGDDAT WHAT REGISTER SHOULD BE 
7208 O44320 023737 O011e4 OOll2s CMP SGDDAT,$8DDAT IS THE REGISTER Ok ? 
7209 044326 001403 BEQ 66S BR IF OK 
7210 044330 104010 ERROR 10 j REPORT THE ERROR 
7ei1 O44322 005137 001236 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
ete 044336 o00240 66$: NOP 
7214 feaee tet cence tana AO ce re 
721s tA EAR THE ERRORS THROUGH PORT B 
7217 O44340 012760 000011 000000 MOV #11,RHCSI(RO)  ;ISSUE A DRIVE CLEAR 
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DERPPA.Pil T34 TEST RELEASE THROUGH PORT °S’ WITH ERRORS SET 





f 139 . j RERERELAFRA LESS SREAEL ERE LELALLASELALREALE ELS RELA LAL LSE SF LELEFEREFAFL G4 
eel sRELEASE THE DRIVE FROM PORT 8 
7223 46 113 1220 900010 MOVB ORT ,RHC (RO) T PO 
7204 ey ase8 413780 Botss5 001226 MOV SATB ET SBR ono bSELECT F oRese TO LOCATION FOR TYPEOUT 
720s 044362 012760 900013 900000 MOV see eeRST TRO)? 1 He RELEASE THROUGH PORT 8 
7o27 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
55g 905037 001242 CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 
30 O43 01 rE 001122 MOV 8RHDS1,$BDADR :FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
7231 te beba55 ll $B ; ADD HE 1/0 BASE ADDRESS 
O44406 012737 011700 001124 MOV #MOL!PGM'DPRIDRY!VV,SGDDAT _;COMPARISON CONSTANT 
7233 O44414 113760 001216 10 MOVB PORTA. RHCS2(RO) Seteer PORT’ A. 
7es4 O44422 016037 O000le O011b2 MOV RHOS1(RO),S$TMPe ;GeT THE DRIVE STATUS REGISTER FROM PORT A. 
7225 O44430 013737 001162 001156 MOV SIME? STHeo :COPY IT INTO ’S$TMPO’ 
72% O44436 042737 100100 001156 BIC BATATVV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
7e37 «O44444 113760 001220 o00010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT 8. 
7238 O444S2 O] O00012 OO11E4 MOV RHDS1(RO). STMP3 GE THE ORIVE STATUS REGISTER FROM PORT 8. 
7239 O44460 013737 001164 001160 MOV STMP3, STMPL :COPY IT INTO ’STMP 
seo O4HGb oye? 37 190100 001160 BIC RATA'VV.STMPL 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
1 O44 2 1156 001160 CMP STMPO, STMP *IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ” 
7242 oweDe BNE e7s :6R IE NOT 
7243 001156 TS TMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
7244 O44510 OO01045 BNE 69S ;BR IF _NOT 
7e4S5 O44512 10404 ERROR 46 “REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
724_ 944514 000137 044700 IMP 71$ "BYPASS THE REST OF THE CHECKS 
7247 O44520 013737 O01162 001126 67$: MOV STHP2, $BODAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
7248 044526 013737 001220 001226 MOV PORTB,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7249 044534 113760 001220 000010 MOVB PORTB;RHCS2(RO) :SELEC T B. 
| 72950 o44s¥e2 005737 001156 TST STMPO. -SEE IF STATUS EQ 0 FROM PORT A. 
| 7251 O44546 001414 BEQ 68S :BR IF ZERO 
7252 O44550 013737 001216 001226 MOV PORTA, PTNBR SEIZING: FORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 
7253 O44556 013737 O01164 O01ic6 MOV STMP3,S$BDDAT  ;*BAD DATA FOR ERROR T YPE OUT 
7254 O44S64 113760 001216 000010 MOVE § PORTA, RHCS2(RO) ;SELECT PORT A 
755 puo7e a7 32 001160 st SIMPL : F FF grees EQ ZERO FROM PORT B. 
7257 O44600 Ole? 37 17777 001242 688: HOV wi, RELERR :SE fe E RELEASE ERROR’ INDICATOR 
aaa 
F528 Baueia BtS7e0 Sopa NOV BLS RCSL CR) fee se THE DRIVE 
| Af i 1 1126 69S cone £0 T Sok FORE T eer Cnee WHEN RHDS1 READ 
as $ 9 i 
| Feb Rupes ptsee, Bpieee Bot MOY OBORTA’BIROR Bot NUMBER 
8 9 
| 7263 O4464O 023737 001124 001162 CMP + “ALL BITS OK ? 
| Fee Bes Teast Fn oder bast PP 
7ebe O44652 013737 OO1164 001126 70S: MOV STHP3, SBODAT § ;CHECK RHDS! FOR BIT FAILURES - FROM PORT B. 
| 7267 OHHbED 013737 001220 001226 MOV PORTB: PTNBR CHANGE P 
| 7268 023737 OO011e4 001164 CMP scnont, STMP3 3SEE IF al OK FROM PORT B. 
| 7269 O44e74 001401 “BR IF OK 
| 7270 bu4e76 104007 REPORT ERROR 
| 7e7l 700 o00240 
| 
| 
| 


SS ee : - = 
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DERPPA.P11 T34 TEST RELEASE THROUGH PORT °B’ WITH ERRORS SET. 


24 :iF ERROR OCCURED, CHECK FOR LOOP ON TEST 
(Ee 
sere o44702 105737 001103 ste SERFLG ;O1D aN ERROR OCCUR ? 
608 B19 73? 001000 177570 BI #5WO9, SWR ‘ie i LOOP ON ERROR SET ‘SWR9=1) 
7e? 716 OOI4OS BEQ TST35 F NOT 
7280 o47e0 105037 001103 CLRB = SERFLG ArEaR THE ERROR FLAG 
7281 724 005037 091170 ELR STIMES :CLEAR THE MAX ITERATION COUNT 
7es2 044730 000177 134154 INP JSLPERR *GO TO THE LOOP ADDRESS 
7 
oeee 5 RERELLERALARERLLLAS ASSL LAA AE ALLLALELLLLAAELRLER SSE LL LESSEE TELE 
7286 jaTEST 35 TEST TIMEOUT RETRIGGER THROUGH PORT ’A’ 
5 e8e VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
fe i A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O0’S INTO RHDS!. 
232 ;# B. WAIT SOO MS AND WRITE 0’S INTO RHDS1 THROUGH PORT ’A’. 
7294 7* C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 2s OF THE SPECIFIED 
7295 i TIME. (THE MEASUREMENT IS MADE FROM STEP ’B’. 
s5e6 *# D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION — 
| 7698 ii BIT IS SET. ) 
7300 . SELELLELELERLLAL REL LALLA LL EERE LL SERRA EER EER ELE ERE ESSERE L EE SEE 
7301 O44734 tST3S: 
73202 944734 O00004 s INITIALIZE THE SCOPE HANDLER 
7303 044736 005737 001266 TST KYBCTL *PERFORMING ONLY SINGLE TESTS ? 
7304 O44742 001406 2s -$BR OIF NOT 
7305 O44744 100002 °BR IF JUST ENTERED TEST 
| 7306 O44746 000137 002410 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
7307 oHi75e 12737 177777 001266 1S: MOV $-1, KvBCTL *SET SINGLE TEST INDICATOR 
il 000035 01102 25: §  MOVB #36’°STSTNN : TEST NUMBER 
7309 O44766 012737 O4S010 001106 MOV STEaT ae. SL PADR *LOAD LOOP ON TEST ADDRESS 
| 7310 944774 012737 O45010 601110 MOV STEST3S.SLPERR ;LOAD LOOP ON ERROR ADDRESS 
ail 012737. 000004 001170 MOV 84, STIMES *:D0 4 ITERATIONS 
7. 
| zat3 . 5 RERKERRRRA LLL EREL EERE L REE EL LA ARE REARS REALL ERE LL EERE LALA RELA EEA EL EEE RE 
gi6 END OF ’SCOPE’ SETUP - START OF MAIN TEST 
7317 O¥s010 TEST3S: 
| 7319 CLEAR ATTENTION BITS FOR BOTH PORTS | 
rast 10 113760 001216 000010 PORTA, RHCS2(RO) ;SELECT PORT #A 
| 7322 Maat 005060 peat CLR RHDS1 (RO) SEIZE THE DRIVE 
| 7323 O45022 012760 000011 opo000 MOV #11,RHCS1(RO) ISSUE DRIVE CLEAR 
| 7304 045030 012760 000013 o00000 MOV #13 RHCS1(RO) REL THE DRIVE 
| 73295 O45036 113760 001220 000010 MOVB PORTB,RHCS2(RO) SELECT PORT #8 
| 7326 oe0d4 000012 CLR RHDSI RO) j SEIZE THE yPRIVE I THROUGH PORT ’B’ 
| 7337 12760 000011 op0000 MOV S1(RO)  SISSUE OR 
| 7328 O45056 012760 000013 d00000 MOV 43" RHCS1(RO) RELEASE THE ORIVE 
303 





| 
| 


SSE SRL OGRE RAR TERL BELA DR HA) hoot eos as 


sa0 “- 5 f PRESRERAARE RESFALAAASAA LALA RAAERELALELEAAES SES FALELEL ELLE LHELFELEFELE LEG 
5336 : :SEIZE THE DRIVE THROUGH PORT A 
e332 Bless AtasS> OOTSIE Doleso Move FORT SEIZPT  ;STORE SEIZING PORT’S ADDRESS 
Sap Bueras Skeces Soasts © ek or tBSt ORTre arose : 
33 045104 012737 001229 001232 MOV PORTS, OPPRT : OPPOSITE’ PORT ADDRESS 
e333 CT aromas niemeeeantrine csonmean spriaR eee” ~ 
re oe 
7343 SEEERPRPHLSEPFSFSLELEESE CHEESES LL LEFLSSLSFSFLERE RE FREES SLES FESLE ELSES EL SELF SHEE 
734 ta TaRT THE TIMER 
7345 O4S1l12 005037 o01244 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
7347 045116 012737 000764 o01246 MOV 8500. , WATCH :SET WATCH TO SOO MS 
7348 045124 005737 SOle46 1S: TST WATCH *WATCH EQUAL TO ZERO 
7349 045130 001375 BNE 1$ BR IF NCT 
7351 : © KELREHERKAESLLKAKALAEESALESKELAE RELA SAAS EL EAA ELAALSALARERELKALLLELZEFEX 
7352 :START THE TIMER 
tae 045132 005037 901244 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
7355 045136 012737 003720 001246 MOV #2000.,WATCH § ;SET WATCH TO 2000 MS 
7357 Pes45-54-1-1 ip it-+-tot-}-t1t-ta-Set-jb-h-+-llaelableeleeilaeloeioeieioebtpieleebslaiioeissiiaeteeielaieia 
7358  RETRIGGER THE TIMEOUT ONE-SHOT 
| 7360 o45144 005760 oocn1e TST RHDS1(RO) sRETRIGGER THE ONE-SHOT 
7361 O45150 113760 001220 ocoD10 MOVB § PORTB,RHCS2(RO) ’:SELECT PORT B 
7abe Oy5 156 013737 001220 001226 * HOV POR TB PTNGR sMOVE PORT RODRESS To LOCATION FOR TYPEOQUT 
7364 paeisa ata _— F BNE 3$ BR IF mech as OCCURED 
7365 045172 005737 O01246 TST WATCH “WATCH EQUAL TO ZERO ? 
7366 045176 001 NE § ;BR BR IF NOT 
| 7367 045200 1 OR IMEOQUT WITHIN, 2 SECONDS 
| 7368 O45e02 013737 OO1244 OO1264 3S: MOV TIME, TIMES SAVE THE ELAPSED TIME VALUE 
7300 fp RERRRELRE RELA L REL LLE ERE LEL ESE AERAEL LE LALLA RELA ELLLA REALL LE RE LARALEE 
| 7372 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
ee 045210 005037 oD124e2 CLR RELERR ;CLEAR THE RELEASE ERROR ’ INDICATOR 
| 7375 O45214 012737 OO0012 o01122 MOV aRHOS1 SB SBDADR FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
| 7376 O45ee2 de0037 ol Lee ns 800 ; ADD THE 1/0 BASE BOORESS ecant 
«Fae Baesse isle, batZ0R peace MOVB atte eee Sep Bort gee 
| 7379 O4Se42 016037 000012 O0i11be MOV porn ee STMPe ;GET THE DRIVE” STATUS REGISTER FROM PORT A. 
| 7380 O45250 013737 001162 001156 MOV TMP2, STMPO COPY IT INTO’ 
| 7381 045256 042737 100100 001156 BIC BATAIVY, STMPO CLEAR PORT SEPENDENT BITS FROM THE COPY 
| 7382 puseb4 113760 001220 o00010 MOVB PORTB,RHCS2(RO) ;SELECT 
7383 016037 O000i2 001164 MOV RHDSI(RO).STMP3 ;GE vite DRIVE STATUS REGISTER FROM PORT B. 
| 7384 O45300 013737 O01164 001160 MOV STMP3 STHPT >COPY IT INTO ’S$TMPL’ 
| 7285 045306 042737 100100 001160 BIC Tai. STMP1  $CLEAR PORT DEPENDENT BITS FROM THE COPY 
| 
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DERPPA.P11 T35 TEST TIMEOUT RETRIGGER THROUGH PORT 


045314 023737 001156 001160 CMP STMPO, STMP1 51S THE STATUS REGISTER THE SAME FROM SOTH PORTS ? 
ce Suesod Boers 001156 aut Steeg iRclortes ARE THE SAME: ARE THEY ZERO ? 
5388 Bessa 1045S BNE 66S °BR IF NOT 
7390 045232 104046 ERROR 46 "REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
7391 045334 000137 o4sS20 IMP 68S *BYPASS THE REST OF THE CHE*K 
7392 O45340 913737 O01162 001126 64$: MOV STMP2,SBDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
7393 045345 013737 001220 001226 MOV ; *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7394 045354 113760 001220 o00010 MOVB PORTB, RHCSe(RO) ‘SELECT PORT 8. 

7395 045362 005737 O01156 TST $TMPO SEE IF STATUS EQ O FROM PORT A. 
73% 045366 001414 BEQ 65S -BR IF ZERO 
7397 045370 013737 001216 o01226 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7398 045376 013737 001164 OO01126 MOV STMP3,SBDDAT  ;’BAD DATA’ for ERROR TYPE OUT 
7399 O45404 113760 001216 000010 MOVB FORTA, RHCS2(RO) ;SELECT 
7400 O45412 005737 001160 TST STMP1’ ; SEE IF erR us EQ ZERO FROM PORT 8. 
7401 O45416 001012 BNE 66$ F NOT 
7402 O4S420 012737 177777 OO0le42 65$: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
7403 O45426 012760 990011 000000 MOV #11, RHCS1(RO) :CLEAR THE DRIVE 
7404 O45434 012760 900013 900000 MOV 13,RHCSI(RO) RELEASE THE DRIVE 
7405 oO45442 104022 ERROR * TYPE ERROR MESSA 
7406 O45444 013737 001162 001126 66S: MOV $TMP2, SBDDAT LOOK FOR BIT FAILURES WHEN RHDS1 READ 
7407 O4S4S2 O1 001216 OOle26 MOV PORTA, PTNBR PORT 
7408 O45460 pata) 001124 O0l162 CMP $GDDAT, STMP2 PALL BITS OK ? 
| 7409 O45466 001401 BEQ 7S *BR IF OK FROM PORT A. 
| 7410 945470 104007 ERROR *REPORT ERROR 
7411 O45472 012737 OO1164 001126 67%: MOV STHP3, $BDDAT ; CHECK RHOS1 FOR BIT FAILURES - FROM PORT 8. 
7412 O45S500 013737 001220 O0lec6 MOV PORTB; PTNBR MBER 
7413 023737 OO01124 OO1164 CMP SGDDAT, STMPS IcEE IF READ OK FROM PORT 8. 
7414 945514 001401 BEQ 68S *BR IF OK 
7415 O45S5i6 104007 ERROR 7 *REPORT ERROR 
mig 000240 68$: NOP 
| 7418 © SLELASREREFSLLARE RARE AALAL ALAA LALA LAER AA SLA L AAA RA AA EA RELA LALA RESALE REE 
Eat  AHECK THE TIME FROM RETRIGGER TO TIMEOUT 
| 7421 O4SS22 023737 001264 ODl12s2 CMP TIMES, TIMEAP | ;MEASURED TIME GREATER THAN +25% TOLERANCE ? 
| 7482 945530 BGT 4 °BR IF GREATER 
| -74p3 023737 001264 o012s4 CMP TIMES, TIMEAM § ;MEASURED TIME LESS THAN -25% TOLERANCE 
| 24 O45540 002001 BGE +4 : NOT 
pice o45542 104025 4§: ERROR 25 *REPORT THE ERROR 
| Ln sIF ERROR OCCURED, CHECK FOR LOOP ON TEST 
| 7429 O4SS44 105737 001103 TSTB SERFLG sDID AN ERROR OCCUR ? 
7430 SO dOl412 BEQ TST36 + 
| 7431 52 032737 o01000 177570 BIT #SWO9, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
| 7432 O4S560 O01406 BEQ TST : T 
| 7433 bubbbe 105037 001103 CLRB  SERFLG tArEAR THE ERROR FLAG 
| 7434 O45566 005037 001170 CLR STIMES “CLEAR THE MAX ITERATION COUNT 
| m6 045572 000177 133312 IMP JSLPERR :GO TO THE LOOP ADDRESS 
j 7437 ; REREERLERERRELEL AER EL EER ERE SLE LEER ERR LE LEASE L AREER ARERR REET E 
7438 i TEST 36 TEST TIMEOUT RETRIGGER THROUGH PORT 'G’ 
a HAVERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
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7442 S A. SEIZE THE DRIVE THROUGH PORT ’8’ SY WRITING 0’S INTO RHOS1. 





a i 8. WAIT SOO MS AND WRITE 0’B INTO RHDS1 THROUGH PORT ’A’. 
cae 2% C, VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 25% OF THE SPECIFIED 
rant i TIME. (THE MEASUREMENT IS MADE FROM STEP ’8’.) 
7449 :# D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
e450 i? BIT IS SET. 
: © FELEKERARARAEKALARASLEL RAL ARALELAFALARASLELE LARA REARS LALA LEAF ELE 
7453 045576 tST36: 
7454 045576 000004 SCOPE s INITIALIZE THE SCOPE HANDLER 
7455 p4¥5600 g05737 001266 TST KYBCTL sPERF ORMING ONLY SINGLE TESTS ? 
7456 14 BEG 2s :B 
7457 O45606 100002 BPL 1$ ;BR IF MOST ENTERED TEST 
7458 045610 000137 00241 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
7453 14 012737 ara 001266 15: MOV #-1, KyBCTL s9ET SINGLE TEST INDICATOR 
7460 112737 001102 25: MOVB #36, STSTNM NUMBER 
7461 O45630 e737 Se 001106 MOV 8TEST36, SLPADR i 680 LOOP ON TEST ADDRESS 
oaee 045636 012737 945652 001110 MOV #TEST36,SLPERR ;LOAD LOOP ON ERROR ADDRESS 
a O45644 012737 001170 MOV #4, STINES D0 4 ITERATIONS 
eee © KLLEKSRELERS REA ALA ALARA LASALLE RA RA LE LALLA RHEA ALE LAE EREFLALEREELEREEERE 
ote? END OF ’SCOPE’ SETUP - START OF MAIN iEST 
ois o4seS2 TEST36: 
| m4 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
7473 O4SES2 11 1216 000010 MOVB PORTA, RHCS2(RO) ;SELECT P 
7474 045660 Aiareo l2 CLR RHDS1tRO) reetseT, DRIVE 
7475 O45664 612760 000011 ooD000 MOV #11,RHCSI(RO)  ;ISSUE DRIVE CLEAR 
7476 O45672 O1l2e760 000013 000000 MOV #13-RHCSI(RO) :RELEASE THE DRIVE 
7477 045700 113760 O01 000010 MOVB PORTB,RHCS2(RO) ;SELECT PORT 
7478 045706 005060 Oo00dle CLR HDS (RG) ‘SEIZE THE DRIVE THROUGH PORT 'B’ 
7479 045712 012760 000011 op0000 MOV RHCSI(RO)  ;ISSUE DRIVE CLEAR 
mie0 045720 012760 000013 000000 MOV 413° RHCSI(RO)  ;RELEASE THE ORIVE 
es 83 KHEKKELELLE EHS ERER EEL FLERE S ELE LE SERA ERE LER ES ELE LE RAE SELES LEE EEE REL E ERLE 
ried ;SEIZE THE DRIVE THROUGH PORT B 
7485 113760 001220 000010 MOVB =—« PORTB, RHCS2(RO) -SELECT PORT B 
| 7487 O45734 013737 OOlee0 001230 MOV PORTB.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
7488 O45742 O0S060 000012 CLR RHDS1{RO) WRITE 
| 783 04S 013737 OO0l216 001232 MOV PORTA, OPPRT :*OPPOSITE’ PORT ADDRESS 
| as 5 OE OE RNA me ee re se ananassae manana aria 
| me 
gs SEEK ERELELSFEEKLSESE EEK REL SESE LEH SS FLERE ERA LS ES RE EEK TRL SR HS RFSESERA SEES 
| 7496 t dtaRT THE TIMER 
| 97 





rc 


Bae 


attptnttatotatot 
WOnNMWULS Wwe 


Be 


iH 


MO-11-DERPP-A, 
DERPPA.P11 


045754 
045760 


045766 
045772 


: 


cent 


PSSERSSESERES 
SINE CREO LZRG UF 
BReEe-eee-e 


e 
g 


e 
whe 
To 


046230 


hes 


: 


a 
g 


eee 


8 


R 
4 


8 
a 


a 
88 


% 


——— 
= 
epee Bie 





CONTROLLER LOGIC TEST - PART 1 MACY11 
TEST TIMEOUT RETRIGGER THROUGH PORT ’B 
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“CLEAR THE ELAPSED TIME COUNTER 
6 S00 MS 

tWATCH EQUAL TO ZERO 

‘BR IF NOT 

© SHSSKKRAEKAH SRL RALRRA LEE LRA E LEA LERARES ARRAS LER LAEAEHF AK ELSE ELE FLEES 

START THE TIMER 


;CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 2000 MS 


EEE HHE HEEB EEE EE EEE TEE Th hh 
RETRIGGER THE TIMEOUT ONE-SHOT 


sRETRIGGER THE ONE-SHOT 
Move PORT ADDRESS TO LOCATION FOR TYPEOUT 
“WAIT FOR T T 


?BR IF TIMEOUT OCCURED 
sHATCH EQUAL TO ZERO ? 


'NO TIMEOUT WITHIN 2 SECONDS 
ISAVE THE ELAPSED TIME VALUE 


5p RRR E AREA EEE EEE EEE EERE EEE E EEE EEE EERE EE EEE EERE REEL EERE 
; VERIFY THAT THE DRIVE IS IN NEUTRAL 


;CLEAR THE *RELEASE ERROR ’ INDICATOR 
ne ADDRESS of pe! FOR TYPEOUT 


RO, $B 

#MOL! PGM! DPR! ORY! Vv scb0A aT 

THE DRIVE STATUS REGISTER FROM PORT A. 
T INTO *STMPO? 

PORT DEPENDENT BITS FROM THE COPY 

VE STATUS REGISTER FROM PORT B. 

0 *STMP1’ 


T_ DEPENDENT BITS FROM THE COPY 
ATUS REGISTER THE SAME FROM BOTH PORTS ? 


ARE THE SAME: ARE THEY ZERO ? 
IVE NOT IN NEUTRAL OR NOT SEIZED 

8 THE REST OF THE CHECKS 

ET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

i SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
— IF STATUS EQ O FROM PORT A. 


RO 
ZING PORT IF _TEST SHOWS DRIVE NOT IN NEUTRAL 
DATA’ FOR ERROR TYPE OUT 


T A. 
SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 


RHDS1(RO), $TMP3 


Pp 
PORTB, RHCS2(RO) 
STMPO 


PORTA, RHCS2(RO) 
STMP1 
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7554 O%6262 012737 177777 OOle42 655: MOV #-1,RELERR ;SET a THe, DALY ERROR’ INDICATOR 

























127 MOV #11/RH ) CLEAR T 
Pee Buesse Bisse5 Sooors BsodeS nv #14 BARS (RO) mia e's 
7558 a peas OC1162 001126 66%: MOV Sve, SB00AT "LOOK FOR BIT gs WHEN RHDS1 READ 
7559 046314 013737 OOl216 OOlec6 MOV PORTA. PTNBR ‘CHANGE PORT 
60 bvb3e2 923737 001124 OOli6e CMP scpoRT, STMP2 ALL BITS eK 2 
7561 001401 BEQ *BR IF OK FROM PORT. a, 
7562 O46332 1 ERROR he REPORT E 
046334 013737 001164 001126 67$: MOV STMP3,$BDDAT :CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
7564 O46342 013737 O01220 o01226 MOV PORTB;PTNBR :¢ MBER 
046350 923737 O011e4 901164 CMP SGDDAT,STMP3  :SEE IF RoR OK FROM PORT B. 
7566 046356 001401 3EQ 6 BR IF OK 
7567 046360 104007 ERROR 7 ‘REPORT ERROR 
7568 046362 000240 68$: NOP 
7570 5 RE RRRARARA AREA ELAR LA EAE LALE EEL EELS EERE ELLE RA ALL ARE LEAL ALLE LEAR ELE EERE 
7571  ANECK THE TIME FROM RETRIGGER TO TIMEOUT 
oE08 046364 023737 001264 001260 CMP TIMES, TIMEBP § ;MEASURED TIME GREATER THAN +25% TOLERANCE ” 
7574 O46372 003004 BGT 4§ :BR IF GREATER 
7575 046374 023737 001264 001262 CMP TIMES,TIMEBM | ;MEASURED TIME LESS THAN -25% TOLERANCE 
7576 O46402 002001 BGE +4 : T 
77 404 104025 4S: ERROR 25 ;REPORT THE ERROR 
7579 ;IF ERROR OCCURED, CHECK FOR LOOP ON TEST > 
ee O46408 195737 001103 TSTB © SERFLG sDID AN ERROR OCCUR ? : 
cee 46412 001412 BEQ FERS so 
7583 O46414 032737 001000 177570 BIT #SW09, SWR dre tf LOOP ON ERROR SET (SWR9=1) 
7584 O464e2 001406 : BEQ TST37 : NOT 
7585 O46424 105037 001193 CLRB RFLG tALEAR THE ERROR FLAG 
7586 046430 005037 001170 CLR STIMES *CLEAR THE MAX ITERATION COUNT 
7387 046434 000177 132450 JMP JSLPERR GO TO THE LOOP ADDRESS 
| ey SSTEST 37 TEST NO TIMEOUT THROUGH PORT a 
7331 +TEST 37 TEST NO TIMEOUT THROUGH PORT 
| 7593 HE VERIFY THAT THE TIMEOUT ONE-SHOT IS NOT TRIGGERED WHEN THE DRIVE 
| Feae SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
| 7536 . SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING 0’S INTO RHDS1. 
7338 B. SET PORT REQUEST BY WRITING 0’S INTO RHDS1 FROM PORT ’A’. 
7600 ISSUE A RELEASE COMMAND FROM PORT °B’. VERIFY THAT THE DRIVE 


HAS SWITCHED TO THE OTHER PORT AND THAT THE ’ATA’ BIT DID NOT 
SET FOR PORT 'B’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ’A’. 


D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS NOT 
BEEN RELEASED. 


E. RELEASE THE DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


Se Se OS Se Se Se Se Se SH Se SS SS Stet ee we 
WRC RC RC OR RC RC IC RC OKC ORC KC OE Oe Oe OC 
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DERPPA.P 137 TEST NO TIMEOUT THROUGH PORT +A’ 

7610 © PERK KA SRS REF RESELL SAAS ALE RA LLE REL AREKAAARASRERELELASEREAALEFFEE 

7611 O4E44O tST37: 

76l2 O4644O O00004 SCOPE s INITIALIZE THE SCOPE HANDLER 

2613 O46442 005/37 001266 qs KyBCTL eGR ORRIN ONLY SINGLE TESTS ” 

ope 4 BBS I i F JUST ENTERED TEST 

7616 O464S2 900137 002410 IMP EXEC ETURN & GET TEST NUMBER 

s512 OYBHOE 0127 Moree 901266 1$: MOV 8-1, kyacrL EL 8 SINGLE TES XTNDTeaTOR 

18 4 1127 0037 O01102 28: MOVB #37 STSTNM NUMBER 

O46472 012737 O46S14 001106 MOV #TEST37,SLPADR :LOAD LOOP ON TEST ADDRESS 
O46500 012737 O46514 OO1ii MOV #TEST37,3LPERR LOAD LOOP ON ERROR ADDRESS 
046508 912737 000004 901170 MOV 84, STIMES *:D0 4 ITERATIONS 


5 LEEEE EERE EK EERE ELK E KEKE KEKE EKER EEE EEE EERE EEE E EERE EE EEE ER EERE EERE ERE 
: END OF SCOPE’ SETUP - START OF MAIN TEST 


SOCSRERRERE 


046514 eaten, | 

629 CLEAR ATTENTION BITS FOR BOTH PORTS 

é 

7631 O46514 113760 001216 oD0010 MOVB PORTA, RHCS2(RO) ;SELECT PORT #A 

O46522 005060 000012 CLR RHDS1tRO) SEIZE THE DRIVE 

7633 O46526 012760 O90011 ocoo000 MOV #11,RHCS1(RO) ; ISSUE DRIVE CLEAR 

7634 9468534 012760 000013 o00000 MOV #13;RHCSI(RO)  :RELEASE THE DRIVE 

7635 O46542 113760 001220 000010 MOVB PORTB,RHCS2(RO) :SELECT PORT #8 

7636 O46550 005060 O00dIe2 CLR RHDS1tRO) SEIZE THE DRIVE THROUGH PORT ’B’ 

7637 O46554 Ol276C OO0911 oon000 MOV #11,RHCSI(RO) ISSUE DRIVE CLEAR 

7638 946562 Ol2760 000013 op0000 MOV #13;RHCSI(RO) RELEASE THE DRIVE 

re fp RERRER ERA RRE SELLER REE EE REE ELE E REE EER RARE RELL LE RE LER EE ELE AREA ELLER EERE 
| 7o4e ;SEIZE THE DRIVE THROUGH PORT B 

7644 046570 113760 001220 000010 MOVB § PORTB,RHCS2(RO) ;SELECT PORT B 

7645 046576 013737 O0l220 001230 MOV PORTB, SEIZPT :STORE SEIZING PORT’S ADDRESS 

7646 O46604 005060 Oo000I2 CLR RHDS1 (RO) T 

7647 046510 013737 001216 001232 MOV PORTA, OPPRT :*0P POSITE” PORT ADDRESS 

7648 O46616 113760 001216 000010 MOVB PORTA’RHCS2(RO) *:SELECT PORT A 

7b49 046624 013737 OOlel6 O0l226 MOV PORTA;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

7651 . SELLA EEEKEREE ELE EALE SLEEK EES ELE ELSE KF SL ERE RAE RES LKEL EE RHA KH RA EERE ERS EE 
| 7652 tSET REQUEST THROUGH PORT A 
' 7654 O46632 O05060 00012 CLR RHDS1 (RO) ;SET REQUEST | FOR PORT A 
| 7655 O46636 113760 001220 000010 MOVE © PORTB,RHCS2(RO) ” SELECT PORT 8 
7658 46644 013737 OOlec0 OOlec6 MOV PORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7658 SEKEEL SESSLER ELSE LE REREEREL ERE LLL E REESE SEL ERE RL ERLE SR ELLELERRE EEE RES 
7659 t RELEASE THE DRIVE THR 
bbl O46ES2 012760 000013 oD0000 MOV #13,RHCS1(RO) | ;RELEASE DRIVE THROUGH PORT B 
| 7663 . © RELL KERERA REA RAE AAE LARA ARA REA AAA LARA ARAL RAAR AAA RASS RAAEAARERARARAERERE 
| 7664 ;WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 
| 
| 





a a ee ee ee 
i 
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TEST NO TIMEOUT THROUGH PORT ’A’ 


DERPPA.Pil 


T3?7 


005, 
016037 
012737 


013737 


Bol is4 


001236 
001236 


047402 
001246 


—-Orn~— 
foromeruriiu 


oe O46660 013737 O012e52 o01246 


001226 


001126 
001122 


001126 


000010 
001226 


000000 


001122 
001124 


001156 


MOV TIMEAP, WATCH ;SET WATCH TO MEASURED TIMEOUT VALUE + 25% 


5 RRR EK EER RE EERE EERE ERASER ETRE EE EEE EEE EET EEE ITE EASA IAEE TIAA 
: VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT A 


64S: 


CLR CKERR sCLEAR THE 'CHECK ERROR’ INDICATOR 
MOV HOS (RO) $BDDAT’ :GET CONTENTS OF R 

MOV 1, $BDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
AOD Ra HOBOABR D RH11 BASE ADDRES 

CLR $GDDAT * WHAT REISTER SHOULD BE 

CMP SGDDAT,SBDDAT :IS THE REGISTER OK 

BEQ 4§ :BR IF OK 

ERROR 31 ‘TYPE MESSAGE 31 

con CKERR -SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR sREGISTER OK ? 

BEQ “+6 F OK 

JNP ig BYP ASS REST OF TEST IF NOT 

TST WATCH “WATCH EQUAL ZERO ? 

BNE 4 ‘BR IF NOT 


: MOE IRN THAT TIE DRIVE tine NOT TIRED OUT eee 
?CONFIRM THAT THE DRIVE HAS NOT TIMED OUT 


S$: 


MOV PORTA, PTNBR ;PORT NUMBER FOR TYPEOQUT 
CLR CKERR’ CLEAR THE *CHECK sane INDICATOR 


MOV RHDS1 (RO) $BDDAT’ ;GET CONTENTS OF RH 
MOV S1,$BDADR ;FORM N REGIS TER ADDRESS OF ERROR MESSAGE 
ADD aR HOS AAbS ADD _R 1 BASE ADDR 

CLR $GDDAT WHAT REGISTER SHOULD BE 

CMP S$GDDAT, SBDDAT HIS THE REGISTER OK 

BEQ 6S$ *BR IF OK 

ERROR 35 “TYPE MESSAGE 35 

CoM CKERR ?SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR sREGISTER OK ? 

BEQ .+6 : 

IMP is *BYPASS REST OF TEST IF NOT 


5p SERRE RAAA EERE RE REE RESELL EE EEE AREAL ERA LLAEERAE KEEL ARE LALLA EREEAAEEE 


;RELEASE THE DRIVE FROM PORT A 


MOVE PORTA, RHCS2(RO) ;SELECT PORT 
MOV PORTA,PTNBR ;MOVE PORT abbRess TO LOCATION FOR TYPEOUT 
MOV #13, RHCS1(RO) ; ISSUE RELEASE THROUGH PORT A 


;VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
MOV #RHDS1,SBDROR  ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
BDADR D THE I/0 BASE ADDRESS 

MOV eMOL! PCM! DPR! ORY! VV SGD0AT ;COMPARISON CONSTANT 

MOVB PORTA,RHCS2(RO) ; SELECT P T’A. 

OV RHDS1(RO).STMP2 :GET THE PORTVE STATUS REGISTER FROM PORT A. 
MOV STMPe, ened ‘COPY IT INTO ’STMPO’ 
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DERPPA.P11 137 TEST NO TIMEOUT THROUGH PORT ’ 
7722 O47136 042737 100100 o01156 Bic BATA!VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
7723 O47144 113760 001220 o00010 MOVB PORTB,RHCS2(RO) :SELECT PORT 
7724 O471S2 016037 O000l2 001164 MOV RHDSI(RO), $TMP3 GET THE DRIVE. STATUS REGISTER FROM PORT B. 
7725 047160 013737 O01164 OO1160 MOV MP3, STMP1 PY NTO ’STMPL’ 

7726 O47166 O4e737 100100 OO!160 BIC #ATANYV, STMPL ‘CLEAR boat DEPENDENT BITS FROM THE COPY 
7727 047174 O23737 OO1156 OO1160 CMP STMPO, STMP1 ‘1S TH HE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
7728 O47e02 901006 SNE 66S BR IF _N 
7729 oY 204 005737 001156 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO 
7730 047210 O0104S BNE 68S -BR IF NOT 
7731 O47el2 104046 ERROR 46 ‘REPORT DRIVE NOT IN, NEUTRAL OR NOT SEIZED 
7732 047214 000137 047400 IMP 70S *BYPASS THE REST OF T C 
7733 O47220 013737 OO1162 001126 66%: MOV STMP2,SEDDAT § ;SET UP POSSIBLE BAD bars FOR ERROR MESSAGE 
7734 047226 013737 001220 Odl2c6 MOV PORTS, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7735 047234 113760 OOle20 o00010 MOVB § PORTB,RHCS2(RO) ; SELECT ORT 

047242 005737 O01156 TST STMPO’ ;SEE IF STATUS EQ O FROM PORT A. 
7737 047246 001414 BEQ 675 ‘BR IF ZERO 
7738 O47250 013737 001216 001226 MOV PORTA, PT NBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7739 047256 013737 001164 001126 MOV STMP3,SBDDAT  ;BAD DATA’ FOR ERROR TYPE OUT 
7740 047264 113760 901216 000010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT A 
7741 047272 005737 001160 TST STMP1* “SEE IF STATUS EQ ZERO FROM PORT B. 
7742 047276 001012 BNE 8 BR IF NOT 
7743 047300 012737 177777 O01242 673: MOV #-1,RELERR “SET ’RELEASE ERROR’ INDICATOR 
7744 047306 O12760 000011 oo0000 MOV . #11,RHCSI(RO) CLEAR THE DRIV 
7745 047314 Ole760 000013 o00000 MOV #13,RHCSI(RO) RELEASE THE DRIVE 
7746 O47322 104026 ERROR 26 :TYPE ERROR MESSAGE 26 
7747 047304 013737 001162 001126 683: MOV STMP2,SBDDAT LOOK FOR BIT FAILURES WHEN RHDS1 READ 
7748 047332 013737 001216 001226 MOV PORTA, PTNBR : CHANGE PORT 1 UMBER 

047340 023737 001124 001162 CMP $GDDAT, STMP2 sALL 9 

947346 001401 BEQ 69S *BR IF OK oKoM PORT A. 
7751 047350 104007 ERROR 7 *REPORT E 
7752 047352 013737 O01164 001126 69%: MOV STMP3,$BDDAT | :CHECK RHDSI FOR BIT FAILURES - FROM PORT 8. 
7753 047360 013737 001220 001226 MOV PORTB; PTNBR *CHANGE PORT NUMBER 
7754 047366 023737 001124 O01164 CMP SGDDAT, STMP3 ; SEE IF READ OK FROM PORT B. 
7755 047374 001401 BEQ 70$ 
7756 047376 104007 ERROR 7 REPORT ERROR 
a 047400 oo0240 70$: NOP 
7758 047402 1S: 
7761 IF ERROR OCCURED, CHECK FOR LOOP ON TEST 

7402 105737 001103 TSTB  SERFLG ;DID AN ERROR OCCUR ? 

7764 O47406 O01412 BEQ TST4O +s NOT 
7765 047410 032737 O01000 177570 . BIT #5W09, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
7766 O47416 OOL406 BEQ TST40 :-BR 
7767 O47420 105037 001103 CLRB © SERFLG ar EAR THE ERROR 
7768 047424 005037 001170 CLR STIMES “CLEAR THE MAX A ERATION COUNT 
7763 047430 000177 131454 IMP JSLPERR GO TO THE LOOP ADDRESS 
7771 it a. Geet a tee nan a ee 
ore xTEST 40 TEST NO TIMEOUT THROUGH PORT ’B’ 
7774 venir THAT THE TIMEOUT ONE-SHOT IS NOT TRIGGERED WHEN THE DRIVE 
7778 ii SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
2777 *% A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RHDS1. 











tee 
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nEneea Fo) 740 TEST NS TIMEOUT THROUGH pont "B 
as 78 2% r 
ne :@ 8. SET PORT REQUEST BY WRITING O°S: INTO RHOSL FROM PORT 'B”. 
773) :# CC. ISSUE A RELEASE COMMAND FROM PORT ‘6 VERIFY THAT THE DRIVE 
7783 re HAS SWITCHED 70 THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 
083 i CET FOR PORT 'A’. REGISTERS WILL Nor BE CHECKED TRROUGH PORT ’B’. 
7785 :# 0. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS NOT 
cose i SEEN RELEASED. 
778s 1# £. RELEASE THE DRIVE THROUGH PORT °B’. VERIFY THAT THE DRIVE 
7789 : RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
~~ I : SPRSEESEESEREESE REESE SSE LES EE SESE SES ERERSSESSEEEESESES ERE SEE SESS 
7792 047434 tsTuo: 


7793 D47434 900004 SCOPE TI Ze THE SCOPE HANOLE 


7784 Ou7H36 =OOST37 «001266 TST KYSCTL :PERFORMING ONLY SINGLE neLee ’ 
7795 «(04 001456 BEQ FS} ‘BR IF NOT 
| P776e OM7444 100002 BEL 1$ °BR IF JUST ENTERED TEST 
7787 ON7446 000137 002410 IMP EXEC !RETURN 8 GET NEXT TEST NUMBER 
7798 47452 012737 177777 OCl2EE 1S: MOV a-1.kyBCTL :SET SINGLE TEST INDICATOR 
7793 O47460 112737 00040 OOl102 2S: MOVB 840/STS ST NUMBER 
7800 O47466 012737 047510 001106 MOV srpefaa, SL PADR "LOAD LOOP ON TEST ADDRESS 
| 7801 ON7474 912727 047519 001119 Moy STESTYO'SLPERR :LOAD LOOP ON ERROR ADDRESS 
| 708 OM Oie737 607004 001170 MOV 84, STIMES ::D0 4 ITERATIONS 
| see 
| seme SFESSERPSESSELEPSSE “LSE FERSSLELHFHSHSEEFSSHF EFF FHSS S SESS SAFE LH PHS H SHEE 
| 7806 {END OF *SCOPE’ SETUP - START OF MAIN TEST 
7808 047510 TEST4O: 
| 7518 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
| FSIS DN75I0 113780 oD1216 oD0D10 MOVE «PORTA. RHCS2(RO) ;SELECT PORT 4A 
| 7813 O47516 O0S060 o90012 CLR RHDS _'RO) SEIZE THE DRIVE 
| 7814 O475e2 012760 000011 MOV $11,RHCSI(RO) ISSUE DRIVE CLE 
| 7815 047530 012760 0900013 090000 MOV 813'RHCSI(RO) RELEASE THE DRIVE 
| 7816 047536 113760 001220 000010 MOVB PORTB,RHCS2(RO) sSEtgCT, PORT #8 
| 7817 947544 005060 o0001e CLR RHDS 1 1RO) : THE DRIVE THROUGH PORT ’B’ 
| 7818 47550 912769 90001! oo0000 MOV 1,RHCSI(RO) ISSUE DRIVE CLEAR 
7819 O47556 012760 O00013 ofo0co MOY 13° RHCSI(RO)  ;RELEASE THE DRIVE 
7821 s8 SEELFEEPESIRESESELESESESEERLA EERE LEE RSEERE REL LFRELR EKER PEER ERSTE FHASSS 
| 7555 ;SEIZE THE DRIVE THROUGH PORT A 
ree 047564 113760 001216 O000i0 MOVB  PORTA,RHCS2(RO) ;SELECT PORT 
7826 047572 013737 oo1e16 001230 MOV PORTA.SEIZPT ;STORE SEIZING PORT" S ADDRESS 
| 7827 647600 O0S0E0 1 CLR RHOS1{RO) mete $1 
| 7658 013737 001220 001232 MOV PORTB, OPPRT PPOSITE’ PORT ADDRESS 
7629 O47612 113760 O0l22e0 conoid MOVB  PORTB‘RHCS2( RO) SELECT PORT B 
720 012737 001220 OOl22é MOV PORTB, PTNBR Ove PORT ADDRESS TO LOCATION FOR TYPEOUT 
7822 : oSESRHEAERELERESESKELASASERA LL LS AALS LAASRAAALARALLAARARREAERASARALAELAE 
7233 Cts SET REQUEST THROUGH PORT 8 
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DERPPA THO TEST NO TIMEOUT THROUGH PORT ° 
7334 
7835 O47626 005060 9000!le CLR RHOS1 (RO) ;SET REQUEST FOR PORT & 
O4763e 1139760 O0leié 000019 MOVB PORTA,RHCS2(RO) SELECT PORT A 
7S3r ON76HO Ol3a7a? OOlelé O0le26 MOV PORTA,;PTNER ;MOVE PORT ALDRESS TO LOCATION FOR TYPEOUT 


S SRFSRSSSAFSLESSESRESASEELESAASSESSSLESSSSSRSESRELAALALSL FES RLSEFLSFAAGFFSS 
‘RELEASE THE DRIVE THR 


O47646 Ciz7&O 000013 00000 OV #13,RHCS1(RO)  ;RELEASE DRIVE THROUGH PORT A 


s SSSSSSSSESLSSELELA EL ALARA RAAATESSAAESSARASFLLFEESLASSASLSAFEFSASASFLSSSLSE EE 
hart THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 


047654 013737 001260 O01e46 MOV TIMEBP, WATCH ;SET WATCH TO MEASURED TIMEOUT VALUE + 25% 


reas ese AH ; 


7843 SESEESSPESEFF=— FELSEFSEELFSFSSLELELFEFSLLESELE FEELERS FEE HESLSSF+FESFFRFFESHES 
cest ; UERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 
7852 o47662 005037 901236 CLR CKERR sCLEAR THE ’CHECK ERROR’ INDICATOR 
7253 O47666 016037 O000l2 091126 MOV RHDSI(RO).SBDDAT’ :GET CONTENTS OF RHDS1 
7854 047674 Ole737 O000le OOllee MOV sRHDS §BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
7855 947702 060037 001122 ADD "ADD RH11 BASE ADDRESS 
7856 047706 005037 001124 CLR SchDaT WHAT REGISTER SHOLLD BE 
7857 O477l2 023727 OO1124 001126 CMP 3obbAT, SEDDAT *I1S THE REGISTER OK ? 
7e5& 047720 001403 BEQ 64S BR IF OK 
7859 O477e2 104031 ERROR 31 TYPE MESSAGE 31 
7860 047724 005137 001236 COM CKERR * SET THE REGISTER COMPARE ERROR INDICATOR 
7861 047730. O00240 64$: NOP 
7Bse 47732 005737 001236 TST CKERR sREGISTER OK ? 
7863 047736 301402 BEQ +6 *BR IF OK 
7864 047740 000137 oso376 IMP iS *BYPASS REST OF TEST IF NOT 
7265 047744 005737 O01246 TST WATCH “WATCH EQUAL ZERO ? 
756 047750 001375 BNE “4 BR IF NOT 
788 s SSEFESELESESLELAEAALAFELEAAAARASLLALSERESDESAAALELALLAELSALELA LAA LASER LEE 
7BE9 : AONFIRM THAT THE DRIVE HAS NOT TIMED OUT 
oot 047752 013737 001220 o0l226 MOV PORTB, PTNBR :PORT NUMBER FOR TYPEOUT 
7872 047760 005037 901236 CLR CKERR’ *CLEAR THE 'CHECK ERROR’ INDICATOR 
Le mM SES Spoofs pot tse HOV RUBS] SBORDR- Toit REGISTER BODRESS oF ERROR MESSAGE 
7875 Bean a8 a 0011 ADD RO RO SBORER sRDD_RH11 ADDRESS 
7876 050004 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 
050010 023737 001124 O0l126 CMP SGDDAT,SBDDAT :IS THE REGISTER OK ? 
ree 050016 001403 BEQ 65$ BR IF OK 
7879 050020 104035 ERROR 35 i TYPE MESSAGE 3S 
7880 050022 005137 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
7881 050026 o00240 6S$: NOP . 
7e82 050030 005727 001236 TST CKERR sREGISTER OK ? 
7883 950034 001402 BEQ "Me BR IF OK 
ree 0500326 000137 050376 IMP i$ BYPASS REST OF TEST IF NOT 
He 5p RERAERELE REESE SELLA EE LLE RELA A ARERR ELAS AR ELAERAALA ARAL LAR EAE LERE RARE REE 
ree sRELEASE THE DRIVE FROM PORT B 
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DERPPA.P11 T4O TEST NO TIMEOUT THROUGH PORT +? 


7890 oso0042 113760 001220 900010 MUVB PORTE, RHCS2(RO) SELECT FORT 8 

7851 050050 013737 601220 001226 MOV ORTB’PTNBR :MOVE PORT apprece TO LOCATION FOR TYPEOUT 
832 059056 Ol2e760 600013 900000 MOV ath RHCSI(RO)’ sISSUE RELEASE THROUGH PORT 8 

7894 sVERIFY THAT THE DRIVE IS IN NEUTRAL 

7895 

78 4 905037 00124 CLR RELE sCLEAR THE "RELEASE ERROR ’ INDICATOR 
oe penosa 012737 Mates 001122 MOV aos! $BDADR :FORM THE ADDRESS OF RHOS! FOR TYPEOUT 
7898 050076 060037 OOliee ADD ify suobal ° EORPaRt Son 

7899 050102 Oie7s? 011700 001124 MCV antiport Pant? DPREDRY! VV, S$GDDAT ;COMPARISON ....STANT 

7300 050119 1137680 001216 o900i0 MOVE A, RHC SELECT POR 

7301 050116 616037 000012 901162 MOV Recet th RO) ee a THE OR DRIVE” STATUS REGISTER FROM PORT A. 
7902 050124 013737 001162 001156 MOV STMP2, STMPO :COPY IT INTO ’ 

7303 050132 042737 100100 001156 BIC SATATVV STMPG CLEAR PORT BEPENGENT BITS FROM THE COPY 
7904 050140 113760 O01220 o000i0 MOVB § PORTB,RHCS2(RO) :SELECT PORT B. 

7905 050146 016037 000012 001164 MOV RHOS1{RO) STMP3 :GET THE ORIVE STATUS REGISTER FROM PORT 8. 
7906 050154 0613737 001164 OOl160 MOV STMP3 1 *COPY IT INTO 'STMPL’ 

7307 O50l62 O42737 100100 001160 SIC BATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
7908 050170 023737 SO11S6 O01i60 CMP STMPO, STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ” 
7303 050176 001006 BNE 66S BR IF NOT 

75190 oS0200 005737 001156 TST STMPO "REGISTERS ARE THE SAME: ARE THEY ZERO ? 
7911 O50204 901045 B 68S :BR IF NOT 

7912 050206 104046 ERROR “REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
7813 050210 000127 0S0374 IMP 70S "BYPASS THE REST OF THE CHECKS 

7314 050214 013737 001162 001126 G&S: MOV STMP2, $B008T :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
7315 OS0222 013737 001220 001226 MOV PORTS, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7316 050230 113760 O01220 900010 MOVB PORTB;RHCS2(RO) ;SELECT PORT B. 

7317 050236 005737 OO11S6 TST STMPO’ -SEE IF STATUS EQ O FROM PORT A. 

7918 950242 O01414 BEQ 675 *BR IF ZERO 

7319 OS0044 613737 O01216 001226 MOV PORTA, PTNER :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
7920 genese 013737 OO1164 O01126 MOV STMP3,SBDDAT :?BAD DATA’ FOR ERROR TYPE 0 

7321 113760 001216 o00010 MOVB PORTA;RHCS2(RO) ;SELECT PORT A 

7922 050266 005737 001160 TST STMP1 *SEE IF STATUS EQ ZERO FROM PORT 8. 

7323 050272 001012 BNE 683 BR IF_NOT 

7924 050274 012737 177777 O01242 678: MOV #-1,RELERR “RELEASE ER ERROR’ INDICATOR 

7925 050302 012760 O00011 MOV fil’ *RHCS1 (RO) tPF aR 

7326 050310 012760 000013 co0000 MOV #13, RHCS1(RO) sREL ELEASE THE ARtve 

7927 050316 104026 ERROR 26 YPE ERROR Nes MESSAGE 26 

7928 050320 013737 OO01162 001126 685: MOV STMP2, SBODAT OOK BIT FAILURES WHEN RHDS! READ 
7923 950326 013737 O01216 O0lec6 MOV PORTA; PTNBR :¢ PORT 

73930 050334 Dea7 37 001124 OOliée2 CMP $GDDAT,STMP2  :ALL BITS OK ? 

7931 50342 001401 BEQ 695 BR r OK FROM PORT A. 

7932 050344 104007 ERROR 7 

7933 05034 013737 091164 001126 69%: MOV STMP3, SSDDAT CHECK iriO31 FOR BIT FAILURES - FROM PORT 8. 
7934 050254 013737 001220 O01226 MOV PORTB: PTNBR :CHANGE PORT R 

7925 050362 023737 O0112e4 OO1164 CMP S$GDDAtT, STMP3 ; SEE IF READ OK FROM PORT B. 

7336 050370 001401 BEQ 70$ 

7937 050272 104007 ERROR 7? REPORT ERROR 

7938 050374 O00240 70$: NOP 

aay 050376 1$: 

rae IF ERROR OCCURED, CHECK FOR LOOP ON TEST 

7944 050276 105737 001103 TSTB = SERFLG DID AN ERROR OCCUR ? 

7945 050402 001412 BEG TSTH! ::BR IF 





ee ee 
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DERPPA.P1! T4O TEST NO TIMEOUT THROUGH PORT ’ 
, oso4o4 032737 001000 177570 BiT sSWO9, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
7947 950412 001406 BEG TST :-BR IF 
7948 950414 105037 001103 CLRB = SERFLG :ELEGR THE ERROR FLAG 
7949 050420 605037 001170 LR STIMES CLEAR THE Max ITERATION COUNT 
o390 050424 O00177 120460 IMP DSLPERR ‘6 TO THE LOOP ADDRESS 
oaes 5 ELRSLALSLALELELLAELELE LAA AAA LELEEFLALALLALEFASLARLLLLELFLALAF EFS 
7954 saTEST 4] TEST PORT 'A’ ATTENTION AFTER A COMMAND 
Pace te 
7357 i TEST THE OPERATION OF THE PORT A AND PORT 8 ATTENTION BITS AFTER A 
i= * COMMAND. 

7366 i ISSUE A RECALIBRATE COMMAND THROUGH PORT ’A’. 
7962 * 8. Way FOR THE RECAL IBRATE COMMAND TO COMPLETE (’DRY’ TO BECOME 
7963 i# "1"), VERIFY THAT THE ATTENTION BIT FOR PORT 'A’ IS SET AND 
7964 i THAT THE RT TENTION BIT FOR PORT ’B’ IS NOT SET. 
¢ Ses . 
7366 7# C. RELEASE THE DRIVE THROUGH PORT ’A’. VERIFY THAT THE DRIVE RETURNED 
7367 is 0 NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
7863 + FELEFLRLASREFLERSALLALEE EEA AREESLEA SE LELLAASARARELALELA LEE LLAALEEE 
7970 059430 tST41: 
73971 050430 oo0004 s INITIALIZE THE SCOPE HANDLER 
7972 050432 005737 o01266 TST KYBCTL “PERFORMING ONLY SINGLE TESTS ? 
7973 050436 O014DE 2s *BR IF NOT 
7374 950440 100002 BPL ?BR IF JUST ENTERED TEST 
7975 OSO442 000137 oo2410 IMP EXEC *RETURN & GET NEXT TEST NUMBER 
737 OSOW4E 012737 177777 O01266 1S: MOV #-1, KYBCTL iS T SINGLE TEST INDICATOR 
7977 OS04S4 112737 000041 OOl!0e 26: MOVB #41 STSTNM T NUMBER 
7978 OS0462 012737 OSOSO4 001106 MOV 8TEST41, SLPADR + BaD LOOP ON TEST ADDRESS 
7373 050470 912737 O50504 001110 MOV #TEST4H1’SLPERR :LOAD LOOP ON ERROR ADDRESS 
7380 050476 012737 O00004 001170 MOV #4, STIMES D0 4 ITERATIONS 
a3 s iD OF SCOPE’ SETUP = STRAT OF MAIN TEST 
7964 END SCOPE’ SETUP - START OF MAIN TEST 
reer ososo4 TESTY1: 
rape ;CLEAR ATTENTION BITS FOR BOTH PORTS 
ie OS0SO4 113760 001216 000010 MOVB PORTA, RHCS2(RO) ;SELECT PORT #A 
fee Teele Bee BIT oom 8S ReSlomm) TELE Due ean 
Oi7e0 MOV a3 Re 1(RO) DRIVE 
rea Ge0es2 Ii lead Bo0o1 nov Te RaCSe(RO) ray + amen kee ian 
79% peueis 012760 bo001 oo0000 MOV #11,RHCS1(RO) DRIVE et EAR 
7997 012760 000013 00000 MOV #13" RHCS1 (RO) i RETEAGE THE Shive 
7338 p50560 113760 b01216 900010 MOVB PORTA, RHCS2(RO) LE ¢ ORT A 
; 1 ieip O0ices MOV PORTA,PTNBR ; MOV vE "PORT ADDRESS TO LOCATION FOR TYPEOUT 
050574 013737 O0i216 001230 MOV PORTA, SEIZPT VF SEIZED’ PORT ADDRESS 
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Pe eds Sete ected PORE Becca eae aie came 
'60 A RECALIBRATE THROUGH PORT A 


osos02 Ole76C 000007 000000 MOV 87, RHCS1(RO) ; ISSUE A RECALIBRATE INSTRUCTION THROUGH PCRT A 


; RRREREERRERE REL ERLE AE EEEERE EERE ARLE LER EERE ELLE EL ELE EE EEES EASES LESS ES 
SHAIT FOR DRIVE TO FINISH 


Bae 2 


Bf 





8019 OS0610 O22760 o00200 o0dnl12 BIT #ORY ,RHDS1 (RO) watt FOR DRIVE TO FINISH 
e011 05061 901774 BEQ 6 R IF NOT FINISHED 
6013 pRRREERERELESELLLERERAAS ELLA ELLA SELLA ER LLAE ELLER ELAR RELEASE PEELE REELED 
go14 : AONFIRM THAT ATTENTION IS SET FOR PORT A 
8016 OS0620 005037 001236 CLR CKERR sCLEAR THE ’CHECK ERROR’ INDICATOR 
8917 050624 016037 OODDle 001126 MOV RHOS1(RO),$8DDAT’ :GET CONTENTS OF RHDS1 
8018 050632 012737 O00012 OOllee MOV #RHDS1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
8019 OSO640 060037 001122 ADD RO, SBDADR RH11 BASE ADDRESS 
8020 OS0644 012737 100000 001124 MOV sata. SGODAT WHAT REGISTER SHOULD BE 
8021 OS06S2 013737 001126 O01156 MOV SBODAT,STMPO " :MOVE REGISTER CONTENTS TO ’STMPO’ 
BO22 OSO660 042737 077777 001156 BIC SfCATA,STMPO ;SAVE SPECIFIED BITS 
8023 O50666 023737 001124 001156 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
8024 050674 001414 BEQ 4 *BR IF OK 
8925 OS0676 013737 001126 O01166 MOV SBDDAT, STMPY ; COPY *BAD DATA’ 
8026 042737 1 001166 BIC #ATA, STMPY -CLEAR THE MASKED BITS 
8027 O5071l2 053737 OO1166 001124 BIS $TMP4 , SGDDAT 37 OR? WITH GOOD DATA FOR TYPEOUT 
£028 104032 ERROR 32 :TYPE MES 
8029 050722 005137 001236 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
8030 950726 o00240 64S: NOP 
8031 050730 113760 001220 opo010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT 8 
8032 050736 013737 001220 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
8034 S ELLLEREERKKA REESE RASE LEER EAE REALE LER AAA HE LALARARES ELLER AER RELL AKERS RELAKE 
8035  AONFIRM THAT ATTENTION IS NOT SET FOR PORT B 
Ste 050744 005037 001236 CLR CLEAR THE = CHECK ERROR’ INDICATOR 
| 8038 050750 016037 900012 001126 HOV SECT ROD sB00AT’ rol nets CONTENTS OF RHOS! cia tein 
Bpa8 BeayeR beba37 Os ADD al ISTER AODRESS. 
8041 950770 005037 001124 CLR THAT REET eTER SHDULB BE 
e042 050774 013737 O01i26 001156 v oe “MOVE REGISTER CONTENTS TO ’S$TMPO’ 
8043 051002 042737 077777 OO11S6 BIC StCATA,STMPO ;SAVE SPECIFIED BIT 5 
BO44 OS1010 023737 O01124 001156 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
8045 051016 001414 65S *BR IF OK 
B04 051020 O01 001126 001166 MOV SBDDAT,STMP4Y : COPY "BAD DATA’ 
8047 051026 04 1 001166 BIC #ATA, STMPY ‘CLEAR THE MASKED BITS 
Bove 051034 001166 001124 BIS STMP4, SGDDAT ie WITH GOOD DATA FOR TYPEOUT 
os5id4e 1 ERROR YPE MESSAGE 32 
8050 051044 005137 001236 COM CKERR ‘SET THE REGISTER COMPARE ERROR INDICATOR 
' 051 051050 o00240 65$: NOP 
| B0S3 5 5 RERERRERE REALL REEL LAE ALLL E EERE LAE RELA RARER ALLELE RRA RAE RLAA AR RLEREEE 
be pee ;RELEASE THE DRIVE FROM PORT A 
| BOS6 
| 2057 oS10S2 113760 001216 000010 MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
j 
| 


en a ne 
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8051 :VERIFY THAT THE DRIVE IS IN NEUTRAL 
Shes ps 051974 005037 001242 CLR RELERR sCLEAR THE "RELEASE ERROR ’ INDICATOR 

8064 051100 912737 O000le 001122 MOV #RHDS1,S$BDADR  ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
OES 051105 O01} ADD RO, SBDADR ; 800 THe 1/0 BASE ESS 

ille 01 ll 001124 MOV SMOL!PGM!DPRIDRY!VV,SGDDAT ;COMPARISON CONSTANT 

8087 051120 113760 001216 o00010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT’A. 

8068 OS1le6 Ol 000012 O01162 MOV RHOSItRO).$TMPe ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
£069 051134 013737 OOll62 001156 MOV 2,$T :COPY IT INTO ’S$TMPO’ 
8070 51142 042737 400100 001156 8IC BATATVV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
8071 O51150 113780 O01220 Oo00010 MOVB § PORTB,RHCS2(RO) :SELECT PORT 8. 
8072 051156 016037 000012 001164 MOV RHOS1{RO),S$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
8073 051164 013737 001164 001160 MOV STMP3, STMP1 :COPY IT INTO 'STMP1’ 
8074 051172 042737 100100 001160 BIC #ATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
8075 051200 623737 OO1156 001160 CMP STMPO, STMP1 IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ” 
8076 051206 001006 6$ -BR IF NOT agi 
8077 051210 005737 001156 TST STMPO ‘REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8078 051214 OO104S a BR IF NOT 
8079 e121 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
8080 051 137 051404 IMP 70$ :BYPASS THE REST OF THE CHECKS 
8981 051204 013727 O01162 001126 66%:  # MOV STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
goge peles2 013737 001220 O0le26 MOV PORTS, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
g083 051240 113760 OO0le20 Ooo00i0 MOVB § PORTB;RHCS2(RO) ;SELECT PORT B. 
8084 05124%% 005737 001156 TST ST -SEE IF STATUS EQ O FROM PORT A. 
B08S 051252 001414 BEQ 675 *BR IF ZERO 
8085 951254 013737 001216 001226 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
8087 051262 013737 001164 O011c6 MOV TMP3,$BDDAT ;’BAD DATA’ FOR ERROR TYPE OUT 
8088 051270 113760 001216 000010 MOVB § PORTA, RHCS2(RO) ;SELECT PORT A. ‘ 
£089 Oe ie76 005737 O01160 TST STMPI - $SEE IF STATUS EQ ZERO FROM PORT 8. 

8090 051302 O010ie BNE 68S BR I 
8091 051304 012737 177777 OOl242 678: MOV #-1,RELERR :SET ’RELEASE ERROR’ INDICATOR 
8092 051312 012760 000011 o00000 MOV #11;RHCS1(RO)  ;CLEAR THE DRIVE 
8093 051320 012760 000013 000000 MOV #13,RHCSI(RO)  ;RELEASE THE DRIVE 
8094 051325 104026 ERROR 26 *TYPE ERROR MESSAGE 26 
8098S 051330 013737 001162 001126 68%: MOV STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RHDS1 READ 
809% 051336 013737 OO1216 O012c6 MOV PORTA’ PTNBR *C PORT NUMBER 
8097 051344 023737 001124 OOli6e CMP SGDDAT,STMP2 ALL BITS OK ? 
8098 051352 901401 BEQ 69S *BR IF OK FROM PORT A. 
8099 051354 1 ERROR : T 

8100 051356 013737 O01164 001126 69%: MOV STMP3,SBDDAT | ;CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
8101 051364 013737 001220 OOl226 MOV PORTB.PTNBR *CHANGE PORT NUMBER 

8102 051372 023737 001124 001164 CMP SGDDAT,STMP3 § ;SEE IF READ OK FROM PORT B. 

8103 051400 001401 BEQ 70$ BR IF OK 

81 051402 ERROR 7 REPORT ERROR 

gt 14 70$: NOP 

B107 IF ERROR OCCURED, CHECK FOR LOOP ON TEST 

103 514 105737 001103 TSTB  SERFLG ;DID AN ERROR OCCUR ? 

110 051412 O0141 BEQ TST4e s N 

8111 051414 032737 001000 177570 BIT #SW09, SWR *SEE IF LOOP ON ERROR SET (SWR9=1) 

Bll2 OS1422 001406 BEQ TST4e2 :-B NO 

8113 051424 105037 001103 CLR8  SERFLG *CLEAR THE ERROR FLAG 





| 
| 
| 
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8114 051430 095037 091170 CLR STIMES sCLEAR THE MAX ITERATION COUNT 
iis 051434 000177 127450 IMP JSLPERR :G0 TO THE LOOP ADDRESS 

8117 j RERRRERERRRRRERESERR ARERR AERA RR AREER EERE LER LAER ELERER SEAL EEE EE 
8118 :4TE T 42 TEST PORT °B’ ATTENTION AFTER A COMMAND 

gie0 i STEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
Bish # COMMAND. 

B23 : : A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ’B’. 

iS ** B. WAIT FOR THE RECAL IBRATE COMMAND TO COMPLETE (’DRY’ TO BECOME 
8126 % ’1’). VERIFY THAT THE ATTENTION BIT FOR PORT ’B’ IS SET AND 
gle? ii THAT THE ATTENTION BIT FOR PORT ’A’ IS NOT SET. 

8129 ?# C. RELEASE THE DRIVE THROUGH PORT ’8’. VERIFY THAT THE DRIVE RETURNED 
B130 ii TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

8132 STETTTTTTTTTTTTTTETTTTTETETTCT TEST TT ET TTTTTETTTT TET ESTCT ETE E TT 

8133 051440 tsTy2: 

8124 OS1440 oj0004 ;INITIALIZE THE SCOPE HANDLER 

8135 051442 005737 o01266 TST KYBCTL ; PERF ORMING ONLY SINGLE TESTS ? 

8136 OSi446 OO1406 BEQ 2s *BR IF NOT 

8137 OS14S0 100002 *BR IF JUST ENTERED TEST 

8138 051452 000137 o0e410 IMP EXEC *RETURN & GET NEXT NUMBER 

8139 051456 012737 1 001266 1S: MOV $-1,KYBCTL j9ET SINGLE TEST INDICATOR 

8140 OS1464 1120737 OO00042 O01102 25: MOVB #42. STSTNM TEST 

8141 051472 012737 051514 001106 MOV #TEST42, SLPADR LOAD LOOP ON TEST ADDRESS 

8142 951500 012737 051514 001110 MOV #TESTY2 SLPERR ;LOAD LOOP ON ERROR ADDRESS 

B43 051506 012737 00 001170 MOV #4, STIMES >:D0 4 ITERATIONS 

8145 

8146 oe FAAELAKE RAKE LALA ERA LRELL LES A LAKE SEL ESE AL EAA A AAEL RELA AAA LA SKE KK EKEESEE 





BiH? END OF *SCOPE’ SETUP - START OF MAIN TEST 
e149 051514 TESTY2: 
B15! | sCLEAR ATTENTION BITS FOR BOTH PORTS 
8153 051514 113760 001216 o00010 MOVB PORTA, RHCS2(RO) ;SELECT PORT 
8154 051522 905060 o000le2 CLR RHDS1{RO) SEIZE THE DRIVE 
8155 051526 012760 000011 oo0000 MOV #11,RHCSI(RO) ; DRIVE CLEAR 
8156 051534 Ole760 000013 o00000 MOV #13.RHCSI(RO) RELEASE THE DRIVE 
8157 051542 113760 001220 000010 MOVE  PORTB,RHCS2(RO) :SELECT PORT #8 
8158 051550 005060 000012 CLR RHDS1 RO) :SEIZE THE DRIVE THROUGH PORT ’B’ 
8159 051554 012760 000011 o00000 MOV #11,RHCS1(RO) ISSUE DRIVE CLEAR 
8160 051562 012760 000013 000000 MOV #13°RHCSI(RO) RELEASE THE DRIVE 
8161 051570 113760 001220 000010 PORTB,RHCS2(RO) ":SELECT PORT B 
8l62 051576 013737 OO0le20 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
Bibs 051604 013737 001220 001230 MOV PORTB,SEIZPT ' ;*SEIZED’ PORT ADDRESS 
giee : yy ychap ttt gg tte a +r gua ermeneanteimanan ine taaieinete aimutatctuttatate 
Bib >00 A RECALIBRATE THROUGH PORT B 
B1b8 051612 012760 o00007 oD0000 MOV #7,RHCS1(RO) — ; ISSUE A RECALIBRATE INSTRUCTION THROUGH PORT 8 
| 
| 
| 
L 





c 
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8170 5 fy RRARAAAARAL KERALA RAE RL ALE RA RAE RERA RES KLARA ZALES LAARELRLRELELLEL EL ELLL EG 
gi?) :WAIT FOR DRIVE TO FINISH 
8173 051620 o32760 o00200 o00012 BIT #ORY,RHDSI(RO) ;WAIT FOR DRIVE TO FINISH 
174 OSié26 O01774 BEQ 6 °BR IF NOT FINISHED 
8176 © FLERHEFAA LA SKARKLA RE RAE ESL RA ELA EA AAKAAES AAA AARA RRL ALE RAZA SLE RAAF LFEFEE 
B17 : AONFIRM THAT ATTENTION IS SET FOR PORT B 
d 
B:38 051630 O0SU37 601236 CLR CKERR s CLEAR THE *CHECK ERROR’ INDICATOR 
8180 051634 016037 990012 001126 MOV RHDS1 (RQ) DDAT’ :GET CONTENTS OF RHOS1 
8181 OSi642 012737 OO00le OOllee MOV $B0ADR Troan REGIST R ADDRESS OF ERROR MESSAGE 
g18¢ 051650 Wee 001122 i ADD RO, SBOAD as aed DR RH1! BASE ADDRESS 
gies fet 154 il pot tee MOV Se0DAT SINFO MHOUE REGISTER, CONTENTS TO ’STMPO’ 
8185 051670 042737 001156 BIC BtCATA, STMPO . SAVE SPECIFIED BITS 
6185 051676 023737 001124 OO11S6 CMP SGDDAT,STMPO ©; COMPARE THE BITS 
8187 051704 001414 BEQ arr 
8188 051706 013737 901126 O01166 MOV SBDDAT, STMPY ; COPY "BAD DATA 
8189 051714 O4e737 1 001166 BIC #ATA Sth THE PASKED BITS 
8190 051722 053737 O01166 001124 BIS STMP4, SGD POR’ W WITH GOOD DATA FOR TYPEOUT 
8191 051730 104032 ERROR 32 
8192 051732 005137 001236 COM CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
8193 051736 O0024D 64S: NOP 
8194 051740 113760 001216 oo0010 MOVB  PORTA,RHCS2(RO) SELECT PORT 
He 05174 013737 001216 001226 MOV PORTA,PTNBR ;MOVE PORT abpRese TO LOCATION FOR TYPEOUT 
8197 5 SAv-it-cpe-tige tite tte itt lela 
B138 :CONFIRM THAT ATTENTION IS NOT SET FOR PORT 





8200 051754 001236 CLR CKERR ;CLEAR THE *CHECK ERROR’ INDICATOR 
8201 051760 000012 001126 MOV RHOSI (RO) $BDDAT’ :GET CONTENTS OF RHDS1 
8202 051766 012737 000012 OOlice MOV SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
8203 051774 001122 ADD Hi Fr SBOAGR ;ADD RH11 
8204 O52000 001124 CLR SGODAT *WHAT REGISTER SHOULD BE 
8205 052004 013737 0011 091156 MOV SBODAT, STMPO MOVE REGISTER CONTENTS TO *S$TMPO’ 
8206 O5e0l2 042737 1156 BIC 8tCATA; STMPO . SAVE SPECIFIED BITS 
8207 ead 023737 001124 001156 CMP SGDDAT;STMPO ° ;COMPARE THE BITS 
8208 Ose0e6 001414 BEG 65S ;BR IF OK 
| gang 013737 001126 O01166 MOV SBDDAT,STMPY  ;COPY BAD DATA’ 
8210 052036 94 1 001166 BIC #ATA, STMPY *CLEAR THE MASKED BIT 
821i O52044 Rese 3 001166 o01124 BIS STMP4, SGDDAT 5 7OR” WITH GOOD DATA FOR TYPEOUT 
8212 O520S2 104032 ERROR 3 TYPE MES 
8213 O52054 005137 001236 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
| gel 052060 000240 65S: NOP 
| gsis 5p RRRERREAA AERA AE REA EERE REESE EAERERE LARA EERE RALE ERA LLE EAA LAARERELE 
6218 RELEASE THE DRIVE FROM PORT B 
| 8220 OS2062 113760 001220 oo0010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 
| 8221 052070 013737 O01e°0 O01e%6 MOV PORTB;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| Ecce 052076 012760 000013 o00000 MOV #13,RHCSI1(RO)’ ;ISSUE RELEASE THROUGH PORT B 
| 8224 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
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5 RRAAKEREREAA LA AEAA RELL ARELAA LAL RE RAALAL RR AAA RAL RARAA AAA RERERERE 









CLR RELERR ;CLEAR THE "RELEASE ERROR ° INDICATOR 
MOV #RHOS1,SBDADR  ;FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
ADD RO, SBDADR j AOD THE 1/0 BASE ADDRESS 
MOV #MOL!PGM!DPR!DRY!VV,SGDDAT _;COMPARISON CONSTANT 

CS2( RO) ECT PORT A. 


MOV RHO 4180) STNPe ET T OR VE 37a Tus REGISTER FROM PORT A. 
STMP2, STMP : 
BIC #ATA'VV,STMPO CLEAR P ont "DEPENDENT BITS FROM THE COPY 


MOVB PORTB,RHCS2(RO) :SELECT POR 
MOV RHDSLURO)STHPS ; GET THE SRIVE’ STATUS REGISTER FROM PORT B. 


MOV STMP3, ST ;COPY IT INTO ’ 

BIC ATA! VV gle CLEAR PORT DEPENDENT BITS FROM THE COPY 

4 err, » STMP 15 THE STATUS REGISTER THE SAME FROM BOTH PORTS 7 
TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BNE 68$ :BR IF NOT 

ERROR 46 sREPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 

JMP 70$ :B THE REST OF T CkKS 

MOV STMPe, petal ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

MOV PORTB, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB  PORTB;RHCS2(RO) ;SELECT PORT 

pa Al 0° ;SEE IF STATUS EQ O FROM PORT A. 


Q 3 $ :BR 
MOV PORTA, PTNBR ; SEIZING PORT IF_TEST ao DRIVE NOT IN NEUTRAL 
MOV STMP3, SBDDAT 3 BAD OAT re ERROR TYPE OUT 


MOVB  PORTA,RHCS2(RO) ;SE! 
fet STHPL" ; SEE a aTATUS EQ ZERO FROM PORT B. 
MOV #-1,RELERR ET *RELEASE ERROR’ INDICATOR 


MOV sil" yRHCSI(RO)  ;CLEAR THE DRIVE 
als, »RHCS1(RO) SEL ERS THE perve 


“TYPE ERROR MESSAGE 26 
MOV STMP2,SBODAT — ; LOOK FOR BIT FAILURES WHEN RHDS1 READ 
MOV PORTA; PTNBR R 
CMP SGDDAT, STMP2 ALL BITS OK ? 


BEQ gs BR IF 70k FROM PORT A. 
ERROR EPORT E! 

MOV STMP3,SB0DAT CHECK RHDSI FOR BIT FAILURES - FROM PORT B. 
MOV PORTB; PTNBR :CHANGE PORT NUMBER 

Cr SGDDAT, STMPS ; SEE IF READ OK FROM PORT 8. 

ERROR 7 REPORT ERROR 

NOP 

;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 

TSTB  SERFLG ;DID AN ERROR OCCUR ? 

BEQ TST43 s 

BIT #509, SUR -SEE IF LOOP ON ERROR SET (SWR9=1) 

BEQ TST43 :-8 

CLRB  S$ERFLG iCLEA THE ERROR FLAG 

CLR STIMES CLEAR THE MAX ITERATION COUNT 

IMP JSLPERR 60 TO THE LOOP ADDRESS 
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terbbacBti sre aban toa Neha tt lead ease it Laat : 
9292 ; *TEST 43 TEST PORT INTERACTION FROM PORT ’A’ 
Bees ; #VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
S286 : : A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RHDSI. 
Be8s i B. WRITE 1°S INTO RHER1, RHER2, & RHERS THROUGH PORT ’A’. 
8290 ;# C. READ RHERI, RHER2, & RHER3 THROUGH PORT 'B’. VERIFY THAT PORT 
geal i ’B’ SEES O'S FROM EACH OF THESE REGISTERS. 
£293 i CLEAR RHER1, RHER2, & RHER3 THROUGH PORT ’A’. 
Boae 1% WRITE 1°S INTO RHERI, RHER2, & RHER3 THROUGH PORT ’B’. VERIFY THAT 
B25 i PORT °A’ SEES 0’S FROM EACH OF THESE REGISTERS. 
8298 :# F. RELEASE THE DRIVE THROUGH PORT 'A’. VERIFY THAT THE DRIVE HAS 
9299 # SWITCHED TO PORT ’8’ AND THAT THE ATTENTION. BIT FOR PORT 'B’ IS 
8300 i SET AND THE ATTENTION BIT FOR PORT ’A’ IS NOT SET. 
8302 ?# G. ISSUE A RELEASE COMMAND THROUGH PORT ’B’. VERIFY THAT THE DRIVE 
6303 if RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
8305 . REREL LEASE AERA SERA LEER LARA AKERS LAAAA RAHA A RHEL LERERE LRA REAALELE 
8308 052450 tsT43: 
8307 O5e450 000004 SCOPE s INITIALIZE THE SCOPE HANDLER 
B308 052452 005737 001266 TST KYBCTL ; PERFORMING ONLY SINGLE TESTS ? 
8309 OS52456 001406 BEQ 2$ °BR IF NOT 
8219 9520460 100002 BPL 1$ ;BR IF JUST ENTERED TEST 
8311 O5e462 000137 002410 JMP EXEC *RETURN & GET TEST NUMBER 
8312 OS24%66 012737 177777 O0l2b6 1S: MOV #-1, KYBCTL *SET SINGLE test INDICATOR 
8313 052474 112737 000043 O01102 2s: MOVB ;TEST R 
8314 OS2502 012737 052524 001106 MOV #TEST43, SL PADR “LOAD LOOP ON TEST ADDRESS 
8315 052510 012737 052524 001110 MOV #TESTY3.SLPERR LOAD LOOP ON ERROR ADDRESS 
B316 052516 012737 007640 001170 MOV #4000. $TIMES ?;D0 4000. ITERATIONS 
83 
att 5 (JE BBEEE HEU H EGE H UGH GEES HCG E EHO EEUU EEG 
B3c0 “END OF *SCOPE’ SETUP - START OF MAIN TEST 
Bice os2s24 TESTY3: 
8324 sCLEAR ATTENTION BITS FOR BOTH PORTS 
B56 052524 113760 001216 OO0010 MOVB § PORTA,RHCS2(RO) ;SELECT PORT #A 
en ee eee 
8329 052544 BSF eb nye ann MOV #13’ RHCS1(RO) RELEASE THE DRIVE 
8330 OS25S2 113760 001220 000010 MOVB PORTB,RHCS2(RO) sSELECT | PORT #8 
1 052560 005 gp0012 CLR RHDS1 (RO) EUS THE DRIVE THROUGH PORT ’B’ 
052564 0127 11 oo0000 MOV #11, RHCS1(RO) SSUE DRIVE CLEAR 
B333 052572 012760 000013 000000 MOV #13;RHCSI(RO) §;RELEASE THE DRIVE 
B35 :SEIZE THE DRIVE THROUGH PORT A 


8337 052600 113760 001216 000010 MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
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DERPPA T43 TEST PORT INTERACTION FROM PORT ’A’ 
8338 OS2606 013737 001216 001230 MUV PORTA,SEIZPT ;STORE SEIZING PORT’S ADDRESS 
8339 052614 O0S060 o00dle CLR RHDS1 (RO) - WRITE 
8340 052620 013737 O0l2e0 001232 MOV PORTB, OPPRT ;"OPPOSITE’ PORT ADDRESS 
8341 O52626 012780 177777 OOOCOLY MOV #-1,RHERI(RO) LOAD 1’S INTO RHER1 THROUGH PORT A 
8342 052634 012760 177777 OO0c4O MOV #-1;RHERC(RO) © ;LOAD 1°S INTO RHER2 THROUGH PORT A 
8343 O52642 012760 177777 OO00Ye. MOV #-1RHERS(RO) + OAD i? 5 INTO RHER3 THROUGH PORT A 
8344 052650 113760 001220 o00010 MOVB PORTB,RHCS2(RO) ’ “SELECT PORT 8 
8345 052656 013737 OOlee0 O01226 MOV PORTS PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
8346 052664 004737 053550 JSR TSt43B s CHECK THE fee ISTERS THROUGH PORT B 
Baye Desese iaray DOLSIE Gbiece MOV PORTR, SCO) SORLET! De tee ae: cnatten Pon Tweet 
tit * 
B34 fess7é paren BBB CLR RHERSURO) i ve. BOR ERE at 
8350 052710 O0S060 oo0040 CLR RHER2(RO) 3CL LEAR RHER2 ON SORT A 
8351 O5e714 05060 900014 €LR RHERI (RO) “CLEAR RHERI_ON PORT 
8352 1 i224 000016 MOV ASRI,RHAS(RO) CLEAR THE Arfent son BIT FOR PORT A 
8353 052726 113760 OOle20 O00010 MOVB B,RHCS2(RO) *:SELECT 
052734 013737 O01e20 001226 MOV PORTB,PTNBR ;MOVE PORT RODRESS TO LOCATION FOR TYPEOUT 
8355 OSe742 012760 i77777 OO0O14 MOV #-1,RHERI(RO)’ ;LOAD 1°S INTO RHERI THROUGH POR RT B 
052750 010760 177777 oo0040 MOV #-1, RHERE(RO) *LOAD 1; S INTO RHER? THRotGH P ORT 8 
8357 052756 012760 177777 OO0dYe MOV #-1,RHERS(RO) LOAD 1°5 INTO RHER3 THROUGH PORT B 
8358 052764 113760 O01216 000010 MOVB  PORTA,RHCS2(RO) ":SELECT PORT A 
8359 0520772 013737 OOlel6 OOl226 MOV PORTA;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
053000 004737 053550 JSR PC, TSt438 vEHECK THE REGISTERS THROUGH PORT A 
;RELEASE THE DRIVE FROM PORT A 
04 113760 001216 000010 MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
053012 013737 OO12c16 001226 MOV PORTA’PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012760 000013 o00000 MOV #13,RHCSI1(RO)’ ;ISSUE RELEASE THROUGH PORT A 


;VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 


56 
8393 053164 013737 O0le20 O0lecb MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 





| 053026 001242 CLR RELERR Ae LEAR "RELEASE ERROR’ INDICATOR 
053032 012737 111700 001124 MOV #ATA! MOL! PGM! DPR! DRY! VV, SGDDAT s COMPARISON CONSTANT 
053040 012737 OO000l2 OOlle2 MOV #RHDS1,SBDADR ;REGISTER ADDRESS’ INCREMENT 
053046 7 OO0ll2e ADD RO, SBDADR sREGISTER BASE ADDRESS FOR TYPEOUT 
053052 113760 001220 cooo10 MOVB  PORTB,RHCS2(RO) *:SELECT PORT 
053060 ot 7 oo1eed 001226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
053066 Ol 000012 OO1156 MOV RHDS1(RO),STMPO ;READ STATUS REGISTER FROM PORT 8 
053074 113760 001216 OO00010 MOVB = PORTA, RHCS2( LECT PORT 
053102 013737 001216 001226 MOV PORTA’ PTNBR  : MOVE PORT aboRese TO LocaTIoN FOR TYPEOUT 
053110 016037 O00012 O011c6 MOV RHOS1tRO), SBDDAT -DRIVE STATUS FROM PORT 

053116 001404 BEQ 64S BR IF STATUS FROM PORT A ZERO 

| 8381 053120 37 001156 TST STMPO 315 STATUS FROM PORT B ZERO ? 

| $382 0531204 001401 BEQ 64S *BR IF ZERO 

| 8383 053126 104031 ERROR 31 “REPORT DRIVE IN oie UTRAL 

8384 053130 013737 OO1156 001126 64$: MOV STMPO, SBDDAT ; CHECK K STATUS FROM PORT B 
838S 053136 013737 001220 001226 MOV CHANGE PORT abpRess FOR TYPEOUT 

| §386 053144 023737 OO011e4 OOlie6 CMP SGDOAT, S8DDAT :ConPA E WITH CONSTANT 

| g387 053152 001401 BE + K 

8288 053154 104027 ERROR 37 REPORT REGISTER ERROR 

6330 sRELEASE THE DRIVE FROM PORT B 

8392 OS3156 113760 001220 op0010 MOVB  PORTB,RHCS2(RO) ;SELECT PORT B 

| 

! 

| noes e> 


a cree renee cree ee ee ee oe ee a 
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: TEST PORT INTERACTION FROM PORT ° 


MOV #13,RHCS1(RO)  ;ISSUE RELEASE THROUGH PORT 8 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR CLEAR THE ’RELEASE ERROR ’ INDICATOR 

MOV #RHDS1, SBDADR FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
RO, SBD “ADD THE 1/0 BASE ADDRESS 

MOV #MOL!PGM! DPR! DRY! vv CECT Port's. ;COMPARISON CONSTANT 


H THE DRIVE STATUS REGISTER FROM PORT A. 
MOV STMP2 SHPO Spy IT INTO °STMPO’ 

#ATA'VV,STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB  PORTB RieSeCRO) : *SELECT PORT 
MOV RHDS1(RO).S$TMP3 :GET THE E DRIVE, sTaquS REGISTER FROM PORT B. 


MOV STMP3, STMP1 :COPY IT 

BIC saTAIW STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 

es STMPO, STMP1 515 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
bre ao jRECISTERS ARE THE SAME: ARE THEY ZERO ? 

ERROR 46 REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 

JMP 69$ sBYPASS THE REST OF THE CHEC 


K 
MOV S$TMP2, SBDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB, PTNBR ; SEIZING aid IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB § PORTB;RHCS2(RO) ;SELECT 


et STMPO" iaee IF STATUS EQ O FROM PORT A. 

MOV PORTA, PTN a ; SEIZING ay! IF_ TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV STMP3, SBDDAT ;°BAD DATA re ERROR TYPE OUT 

MOVB  PORTA,RHCS2(RO) ;SELECT 

peas cre ; SEE IF sratus EQ ZERO FROM PORT B. 

MOV #-1,RELERR SET Se ERROR’ INDICATOR 

MOV #1I;RHCS1(RO)  ;CLEAR THE DRIVE 


MOV #13;RHCS1(RO) RELEASE THE DRIVE 
ERROR 26 “TYPE ERROR MESSAGE 26 

MOV STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RHDS! READ 
MOV PORTA. PTNBR *CHANGE PORT NUMBER 

CMP SGDDAT,STMP2 ALL 
BEQ 68$ *BR IF OK FROM PORT A. 
ERROR 7? “REPORT E 

MOV STMP3, SBDDAT CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
MOV PORTB. PTNBR ‘CHANGE PORT NUMB 

CMP SGDORT, STMP3 ; SEE IF READ OK FROM PORT B. 


BEQ 
ERROR 7 REPORT ERROR 
NOP 
;IF ERROR OCCURED, CHECK FOR LOOP ON TEST 
TSTB = SERFLG ;DID AN ERROR OCCUR ? 
BEQ TST4Y4 se 
- BIT #SW09, SWR SEE IF LOOP ON ERROR SET (SWR9=1) 
BEQ TST44 : T 
CLRB = SERFLG ~~ fACEAR THE ERROR FLAG 
CLR  STIMES ;CLEAR THE MAX ITERATION COUNT 
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125344 
054036 


001236 
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TST43B: 


64S: 


6S$: 


668: 


JMP 
JMP 
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JSLPERR ;GO0 TO THE LOOP ADDRESS 
TST44 :GO TO THE NEXT TEST 


;CHECK THE REGISTERS ON THE SELECTED PORT 


CKERR CLEAR THE “CHECK ERROR’ INDICATOR 
RHERI(RO),$BDDAT’ :GET CONTENTS OF RHERI 
#RHERI,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
0, $8DADR 16, RH11 DDR 
HDAT WHAT REGISTER SHOULD BE 

SGDDAT, SB0DAT ig THE REGISTER OK 
64S ‘BR IF 

4 
CKERR 
RHCS1(RO),SBDDAT’ 
wie , SB0DAT 515 7M 


*, MESSAGE 6 
;SET THE REGISTER COMPARE ERROR INDICATOR 
pF. oy gOnTENTS OF RHCS1 


END 
ee ERROR 


PREP 
1 TRE RHCS1 (RO) CLEAR MH 
CK THe “CHECK ERROR’ INDICATOR 
RHER@ (RO) separ’ es, CONTENTS OF RH 
ER2,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
$ H1l BASE ADDRESS 


aRH BDADR my 
SGDDAT HAT REGISTER SHOULD BE 
$GDDAT, SBDDAT ig THE REGISTER OK ? 
S$ “BR IF OK 
s TYPE MESSA 


GE 6 
CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
RHCS1(RO),$8DDAT’ jGeT THe CONTENTS OF RHCS1 
ancPe, , SBDDAT 515 7M 


il tREPORT THE ERROR 
#TRE, RHCS1(RO) CLEAR *MCPE? 
AR THE 'CHECK ERROR’ INDICATOR 

RHER(RQ) SBDDAT’ :GET CONTENTS OF R 
RHER3,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

SEOADR if DD 11 BASE ADDRESS 

AT REGISTER SHOULD BE 
SGDDAT, SBDDAT Hs at REGISTER OK 

: TYPE MESSAGE 6 

CKERR *SET THE REGISTER COMPARE ERROR INDICATOR 
RHCS1(RO),SBDDAT’ jGeT THE C0 NTENTS OF RHCS1 
mie , SBDDAT 515 7M 


F NO 
11 {REPORT THE ERROR 
#TRE,RHCS1(RO) ;CLEAR ’MCPE’ 
PC ; RETURN 


Test WH TEST PORT INTERACTION FROM PORT "B” 


TEST PORT INTERACTION FROM PORT ° 


VERIFY THAT THERE IS NO INTERACTION BETWEEN FORTS. 
SEIZE THE DRIVE THROUGH PORT °B’ BY WRITING 0’S INTO RHDS1. 


eA. 


ee ee — 
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NTERACTION FROM PORT "B° 


8. WRITE i°S INTO RHERI, RHER2, & RHERS THROUGH PORT °8°. 


C. oe RHERL, RHER2, & RHERS THROUGH PORT A’. VERIFY THAT PORT 
SEES O'S FROM'EACH OF THESE REGISTERS. - 





CLEAR RHER1, RHERe, & RHERS THROUGH PORT °B’. 


WRITE 1°S INTO RHERI, RHER2, & RHERS THROUGH PORT 'A’. VERIFY THAT 
FORT +B SEES 0°S FROM EACH OF THESE REGISTERS. 


. 
> 
e 
* 
> 
* 
+ 
* F, RELEASE ue DRIVE Nye gl Ay *B’. VERIFY THAT THE CRIVE HAS 
* gui TCHeD T PORT °A’ AND THAT THE ATTENTION BIT FOR PORT °A’ IS 
- SET ND 1H ATTENTION BIT FOR PORT *B’ IS NOT SET. 

° 
¢ 
¢ 
* 


G. ISSUE A RELEASE COMMAND THROUGH PORT ’A’. VERIFY THAT LL DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


| oe eceama ot ore sect ip ee aetna eomacetc i tipo eT 5 
44: 


ocogo4 SCOPE sINITIALIZE THE SCOPE HANOLER 
O0S?37 001266 TST KYBCTL i PERFORMING ONLY SINGLE TESTS ? 
001406 BEG 2s :BR T 
100002 BPL 1§ :BR r JUST ENTERED | TEST 
000137 410 IMP EXEC TURN 8 GET NEXT TEST NUMBER 
01 17777? OOl26E 1S: MOV 8-1, KYBCTL T SINGLE TEST INDICATOR 
l1e737 C0004 O01102 25: MOVB 844 STSTNM Fe NUMBER 
Ot 737 «(OS411 051106 MOV sTEST44, SLPADR :LOAD LOOP ON TEST ADDRESS 
13e37 05411] 1110 MOV sTeSTad’ SLPERR LOOP ON ERROR ADDRESS 
612737 007640 001176 MOV 84000. , $TIMES D0 4000. ITERATIONS 
: CHEELEGEL Pr ELFSEPSLESLLEPSLEF RESELL EREESSRERSEE ERE EERESRPAESERESHA SS EESE 
END OF *SCOPE’ SETUP - START OF MAIN TEST 
TEST4Y: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
113760 001216 o00010 MOVB PORTA, RHCS2(RO) ;SELECT PORT #A 
le CLR RHOS1ERO) *SEIZE THE DRIVE 
012760 O00011 oo0000 MOV 11,RHCSI1(RO)  ;ISSUE DRIVE CLE 
012760 0000 999000 MOV 813°RHCSI(RO) REL RSE THE DRIVE 
113760 O01 31 tB,RHCS2(RO) ;SELECT PORT #8 
005060 le CLR RHDS1 (RO) ;SEIZE THE DRIVE THROUGH PORT 8” 
012760 000011 oo0000 MOV S11,RHCSI(RO) ISSUE DRIVE CLEAR 
012760 000013 o00000 MOV B13;RHCSI(RO)  ;RELEASE THE ORIVE 
;SEIZE THE DRIVE THROUGH PORT B . 
1137680 001220 o00010 © MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
EEL po ice) 001230 MOV PORTB; 612 2PT STORE IZING PORT’S ADDRESS 
060 I CLR RHDS1(RO) ;WRITE RHOS1 
0137327 O0l216 001232 MOV PORTA OPPRT ; OPPOSITE’ PORT ADDRESS 
012760 177777 9000014 NOV #-1,RHERI(RO)  $LOAD 1°S INTO RHER1 THROUGH PORT B 
012760 177777 OO0040 MOV #-1;RHER2(RO) LOAD 1°S INTC RHERS THROUGH PORT 8 
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| DERPPA.P11 744 TEST PORT INTERACTION FROM PORT °6° 
230 O1e760 177777 oD0042 MoV 8-1, RHERZ(RO)  ;LOAD 1°S INTO RHERS THROUGH PORT B 
8563 OS42e36 1137 091216 000010 MOVE Porta, RHCS2(RO) ;SELECT PORT A 
8554 054244 013737 001216 001226 MOV POR TA’ PTNBR shove P PORT ADDRESS TO LOCATION FOR TePEOUT 
8565 OS42S2 OO4737 OS5136 . ISR TSstyue :CHECK THE REGISTERS THROUGH PORT A 
8556 256 113760 OCleed 000010 MOVE FORTE, RHCSe(RO) SELECT PORT 8B 
8567 O54264 C13737 001220 O0l226 - MOV PORTB;PTNBR ;MO ad PORT ADDRESS 19 gOcaTion FOR TYPEOUT 
8588 O5427e 9050680 o0004e CLR RHERSIROD LEAR RHER3 ON P TB 
8569 OS4276 005060 o90040 cLR RIWER2 (RO) CER RHER2 ON P 
es7o 054302 005060 000014 CLR RHERI(RO) LEAR RHERI ON P TE 
8571 OS4306 013760 O0l224 op001 MOV ASRI.RHAS(R0) CLEAR THE Aor ien BIT FOR PORT B 
8572 OS4314 113780 001216 990010 MOVE PORTA, RHCS2(RO) SELECT 
S573 O0S4322 913737 OOl216 901226 MOV PORTA: BrKea sMOVE PORT abpsese TO LOCATION FOR TYPEOUT 
8574 954330 612760 177777 O06014 MOV #-1,RHERI(RO)” ;LOAD 1’S INTO RHERI THROUGH PORT 
| 8575 054336 012760 177777 000040 MOV #-1,RHERC(RO)  ;LOAD 1’S INTO RHER2 THROUGH CORT & 
e278 344 012780 177777 o0004e2 MOV 8-1 RHERZ(RO)  ;LOAD 1’S INTO RHERS THROUGH PORT A 
054352 113760 OCOl2e20 000010 MOVB PORTB,RHCS2(RO) ':SELECT PORT B 
8578 054360 013737 901220 O0l226 MOV PORTB.P :MOVE PORT ADDRESS TO LOCATION FOR TyPEOUT 
8579 365 04737 OSS136 JSR pc, Tstu4e sCHECK THE REGISTERS THROUGH PORT 
S581 ae ;RELEASE THE DRIVE FROM PORT 8 
8583 054372 113760 001220 090010 MOVE  PORTB,RHCS2(RO) ;SELECT PORT B 
6584 O54400 013737 001220 O0l226 MOV PORTB;PTNBR ;MOVE FORT ADDRESS TO LOCATION FOR TYPEOQUT 
| Bses O54406 012760 O00013 000000 MOV 813,RHCS1(RO)’ ;ISSUE RELEASE THROUGH PORT 8 
ESE? ;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
| e589 os4414 cores CLR RELERR ;CLEAR "RELEASE ERROR’ INDICATOR 
/ g590 854420 O61 111700 001124 MOV a TAI OG SPETLOPR DRY! VV, SGODAT ; COMPARISON CONSTANT 
- gS91 OS4426 012737 000012 OOlle2e MOV SRHDS REGISTER ADDRESS’ INC 
| 9592 oc4434 37 001122 ADD ee eaT STER base ADDRESS FOR TYPEOUT 
| g&¢3 113760 O01216 o00010 MOVB PORTA.RHCS2(RO) :SELECT PORT A 
| 8594 OS4446 013737 OO01216 001226 MOV PORTA|PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 8595 OS44S4 016037 O00012 OOlISE MOV RHDS1{RO) TiO ; sREAD STAT REGISTER FROM PORT A 
| 8596 OS4462 113760 O012e20 000010 MOVB BOR TB, RHC RHCaSCRO jSELEC 
| 8597 OS447D 013737 O01220 001226 MOV PORTE PTNBR movi POR T ADDRESS To LOCATION FOR TYPEOUT 
ES9¢ peui7e p10” 000012 6oO1126 MOV MSopbat DRIVE Stal US FROM PORT B 
3g 1404 BEQ tra BR IF STATUS PRON PORT B ZERO 
8600 OS4506 005737 OO11S6 TST $TMPO 315 STATUS FROM PORT A ZERO ? 
| B601 954512 001401 BEQ 64S *BR IF ZERO 
| 8602 054514 104031 ERROR 31 ;REPORT Tats INN NEUTRAL 
603 054516 013737 O01156 001126 64S: MOV STMPO, SB0DAT * CHECK STATUS PORT A 
| BEDS 013737 OO1216 O0le26 MOV PORTA, PTNBR CHANGE P ADRESS. FOR TYPEOQUT 
| BeOS 3737 O0lle4% 901126 CMP $GODAT, SBDDAT ; COMPARE ORTH CONSTAN 
BEDE 1401 Q +4 OK 
| 8607 oOs4s42 104027 ERROR 27 REPORT REGISTER ERROR 
Bere ;RELEASE THE DRIVE FROM PORT A 
' BBI1 OS4S44 113760 001216 000010 MOVB PORTA,RHCS2(RO) ;SELECT PORT A 
| B12 OSHSS2 013737 O01216 O0l2c6 MOV PORTA;PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
! Bat 054560 012760 900013 o00000 MOV #13, ees rho)’ s ISSUE RELEASE THROUGH PORT 
BEI ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
G17 OS4SEE 005037 cOl242 CLR RELERR ;CLEAR THE "RELEASE ERROR ’ INDICATOR 
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TH4 TEST PORT INTERACTION FROM PORT °B’ 
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001122 MOV #RHDS1,SBDADR  ;FORM THE ADDRESS OF RHOS1 FOR TYPEQUT 
add jabo THE 1/0 BASE A 
1124 MOV sMOL!PGM!DPR!ORY! VV, $GDDA et EORBARI SoH CONSTANT 
o00010 MOVB PORTA TeHCSeCRD) SELECT PO T’A. 
003162 MOV = RHDSILRO) $TMP2 ; THE OR oR IVE STATUS REGISTER FROM PORT A 
001156 MOV TMP2, $T ‘ey IT INTO °STM 
001156 SIC BATA'VY,STMPO  :CLEAR PORT BEPENDENT BITS FROM THE COPY 
000010 MOVE PORTB.RHCS2(RO) ;SELECT 
001164 MOV BHDS1E0) $TMP3 :GET THE Orie STATUS REGISTER FROM PORT B. 
001160 MOV STMP3, $T ret COPY IT INTO 'STMPL’ 
091160 BIC earatw SNP > CLEAR PORT TS EeENDEAT BITS FROM THE COPY 
603160 chp a! MPO, STMP 15 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
Ist SHPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
ERROR 46 :REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
IMP 69S *BYPASS THE REST OF THE CHECK 
001126 65$: MOV STMP2,SBDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
001226 MOV PORTS, i SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
000010 MOVE PORTE, RHCSe( RO) ‘SELECT POR 
TST :SEE IF STATUS EQ 0 FROM PORT A. 
BEQ *BR IF ZERO 
001226 MOV PORTA, PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
001126 MOV $TMP3,SBDDAT  :*BAD DATA’ FOR ERROR TYPE OUT 
000010 MOVE  PORTA;RHCS2(RO) :SELECT PORT A 
TST STMP1" i SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 67$ BR IF NOT 
p01242 66S: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
0006095 MOV fil’ "RHCSI(RO) CLEAR THE ORIVE 
090000 MOV 813°RHCSI(RO) RELEASE THE DRIVE 
ERROR 26 TYPE ERROR MESSA 
001126 67%: MOV STMP2,SBDDAT :LOOK FOR BIT FAILURES WHEN RHDS1 READ 
001226 MOV PORTA, PTNBR *CHANGE PORT NUMBER 
001162 CMP SGDDAT,STMP2  :ALL BITS OK ? 
BEQ bes :BR IF OK FROM PORT A 
ERROR ;REPORT ERROR 
001126- 683: MOV STHPS, $BDDAT | ;CHECK RHDS] FOR BIT FAILURES - FROM PORT 8. 
001226 MOV PORTB; PTNBR :C PORT R 
001164 ch SGDOAT, STHPS ; SEE IF ofeAo OK FROM PORT B. 
ERROR 7? REPORT OF ROR 
69S: NOP 
sIF ERROR OCCURED, CHECK FOR LOOP ON TEST 
S18 SERFLG ;DID AN ERROR OCCUR ? 
177570 BIT #SW09, SWR :SEE IF LOOP ON ERROR SET (SWR9=1) 
BEQ TST4s BR IF NOT 
CLRB = SERFLG -CLEAR THE ERROR FLAG 
CLR STIMES ‘CLEAR THE MAX ITERATION COUNT 
IMP asi RR GO TO THE LOOP ADDRESS 
IMP TST4 GO TO THE NEXT TEST 


;CHECK THE REGISTERS ON THE SELECTED PORT 


ae ee ee te 





ac 
De 


TEST PORT 


N CTION FROM PORT 


TST44B: 
CL 


DERPPA.Pil 


_ 


CKERR ;CLEAR THE pe te ERROR’ INDICATOR 
MOV RHERI (RQ) SBDDAT’ :GET CONTEN 


Tod 
oO 
“J 
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oss 
8675 055136 005037 
8675 O551 1603 TS OF RHERI 
8677 055150 012737 MOV SBDADR FOR REGISTER AopRESe OF ERROR MESSAGE 
Bs gee ee ple es be 
Seag Geeies Sea7ae a SEpbRt, saooar TT AE RECISTER Ok 
Bees ate rei ae et “ tae a 
SEBY OSES04 it bus ton RAC (0) coat cL GaN mL “aero 
e68s oS5el2 37 cae OEY ancPe,S bbst "MCPE’ SET 
Sree Pe? beesee iit eee oR = REPORT it: ERROR 
Beas Seese9 O12760 Bare” Hae eucsicoy icreAs once’ 
8689 055232 005037 CLR CKERR ‘CLEAR THE *CHECK ERROR” INDICATOR 
8690 055236 016037 MOV RHER2(RO),SBDDAT’ :GET CONTENTS OF R 
8691 1 MOV SRHERe, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
2692 ps5e5e 060037 ADD RO, SBDADR sADD RH11 BASE ADDRESS 
8693 095037 CLR GODAT *WHAT REGISTER SHOULD BE 
8694 OS€>62 023737 CMP SGDDAT,SBDDAT 31S THE REGIST 
8695 055270 001403 BEQ BR IF OK 
| 86% 055272 104006 ERROR TYPE MESSAGE 6 
8697 055274 005127 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
| 86 53 016037 65S: MOV RHC (80) AT’ <GET THE CONTENTS OF RHCS1 
BS BIT ac SEORTS ;15 "MCPE’ SET ? 
8700 055314 OO 1404 BEQ Te sBR TE NOT pits 
| 503 yeaa ooo0co MOV ite RHCS1(RO) CLEAR NCBES 
| 8703 055326 005037 001236 CLR KERR THE "CHECK ERROR’ INDICATOR 
| 8704 coos 016037 : 001126 MOV RHER3(RO),SBODAT’ GET CONTENTS OF RHER3 
| 8705 Ole737 OO0042 OOllee MOV SRHER3, SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
8706 05534 060037 001122 ADD 0, SBDADR “R00 11 
| 9707 O553S2 005037 001124 CLR $GDDAT T REGISTER SHOULD BE 
e708 bs556 0237 37 001124 001126 cH SGDDAT, SBDDAT 21S THE REGISTER OK ? 
| Grid Geese Touode ERROR 6 {TYPE MESSAGE & 
Se pesary Bena? 66S: Si Rae (RO) ODAT foe pees STENTS OF Brice tac tie 
| eis 055410 001404 Bro ee Se0bar ncPes ser} 
BE Bele dea Re ihe ne 
| eri 14 12760 040000 ooc000 HOV : TRE, RHCS1(RO) cee 
+8718 
| 8719 
! B50 ; LEALELKELAELELAL ALLL RRAAA LALLA EEL LALALA LALLA AARALALAEEAEE RERE 
| 1 jaTEST 4S TEST PORT °A’ ALTERNATE ATTENTION BIT PATH 
e723 HSVERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
B72 i A. SET THE ATTENTION BIT FOR PORT ’A’. 
e727 ii B. SEIZE THE DRIVE THROUGH PORT ’B’ BY WRITING O’S INTO RHDSI. 


(8728 {¥ C. READ THE ATTENTION REGISTER 8 VERIFY THAT THE ATTENTION BIT 
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TEST PORT °A’ ALTERNATE ATTENTION BIT PATH 


001122 


8 88 
5 S2 


TESTYS: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, RHCS2(RO) ;SELECT PORT #A 
CLR —- RHDS1ERO) ;SEIZE THE DRIVE 
MOV #11,RHCS1(RO) SISSUE DRIVE CLEAR 
#13-RHCSI(RO) ; HE DR 
MOVB PORTB.RHCS2(RO) ;SELECT PORT #8 
CLR RHDS1{RO) *SEIZE THE DRIVE THROUGH PORT ’B’ 
MOV $11,RHCSI(RO)  ;ISSUE DRIVE CLEAR 
a3 RHCS1(RO) RE THE DRIVE 
foe & +e eRiTkoN i? an t a ATTN BIT ON PORT A 
CLR 1 RUER! baer aR RGES ERRORS 
MOVB § PORTB,RHCS2(RO) *:SELECT PORT B 
1S: TST RHOS1{RO) ;WAIT FOR DRIVE TO RETURN TO NEUTRAL 
BEQ 1$ *BR IF STILL SEIZED BY PORT A 
MOV #RHAS,SBDADR § :FORM ADDRESS OF ATTN REG IF ERROR 
"ADD THE ADDRESS BASE 
MOV ASR1, SGDDAT GOOD DATA FOR ERROR MESSAGE 
MOV ASR1. STMP1 "MAKE DATA COMPARE MASK 
COM STMP| *COMPLEMENT IT 
MOV #’B, SLPERR LOAD LOOP ON ERROR ADDRESS 
MOVB  PORTB,RHCS2(RO) ':SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PORTB.SEIZPT ' ;*SEIZED’ PORT ADDRESS 
CLR 1tRO) i SEIZE THE DRIVE THROUGH PORT 
2s: MOV (RO), SBDDAT ; HE CONTENTS OF THE ATTENTION REG 


+ FUR THE DRIVE IS SET. 


TT Rimage air oats ea renee aman maga 
4S: 
SCOPE INITIALIZE THE SCOPE HANDLER 
TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
SEQ 2s :BR IF NOT 
BPL 1$ °BR IF JUST ENTERED TEST 
IMP EXEC *RETURN 8 GET NEXT TEST NUMBER 
1$: MOV $-1, KYBCTL *SET SINGLE TEST INDICATOR 
23: MOVB #45’ STSTNM : TEST R 
MOV STESTYS,SLPADR :LOAD LOOP ON TEST ADDRESS 
MOV STESTYS SLPERR LOAD LOOP ON ERROR ADDRESS 
MOV #4000.,$TIMES :;D0 4000. ITERATIONS 





.% HEFSELELAARALSKL LEASE LA ESLER ALALERELA EEA ELERFELEK ELA ELLA SELALAEFELELELEG 
*END OF *SCOPE’ SETUP - START OF MAIN TEST 


DAT, STMPO © :PUT CONTENTS INTO WORKING LOCATION 
BIC STNP1, STMPO “CLEAR OTHER BITS 
CMP SGODAT, STHPO *SEE IF arTN BIT FOR DRIVE SET 


BEQ ;8R I 

53 ;REPORT THE ERROR 
CLR STIMES ;CLEAR ITERATION COUNT 
BIT #SW09, SWR ;LOOP_ON THE ERROR ? 
BEQ +6 ;8R IF SWO9 NOT SET 


T4S TEST PORT °A” ALTERNATE ATTENTION BIT PATH 
27 123136 JMP —-ISLPERR 560.70 THE LOOP 
ares Peecds ppesee tetas she > Bee Yncare eaeietiaan COUNT 
8788 055758 023737 001104 001170 CMP = SICNT,STIMES — :00 UBTEST SOME HORE? 
4 o02002 BCE OC 4G BR IE CNOT 
BEEEE DOOI3? | OSSE7E IMP |B {50 THE SUBTEST AGAIN 
8792 | SRELEASE THE DRIVE FROM PORT B 
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§793 
8794 05577@ 113760 001220 00010 MOVB PORTB,RHCS2(RO) ;SELECT PORT B 
8795 013737 001220 001226 MOV PORTB’ sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
B73 056008 012760 000013 o90000 MOV #13,RHCS1(RO)’ Sse RELEASE THROUGH PORT B 
8738 sVERIFY THAT THE DRIVE IS IN NEUTRAL 
8800 OS6014 001242 CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
8801 O56020 012737 O000le 001122 MOV #RHDS! SBDADR *FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
8802 056026 37 001122 ADD "ADD THE 1/0 BASE ADDRESS 
8803 Dsb032 Ole737 011700 001124 MOV #MOL'PGM!DPRIDRY!VV,SGDDAT _;COMPARISON CONSTANT 
9804 113760 901216 O000I0 MOVB PORTA, RHCS2(RO) ;SELECT PORT’A. 
880S O5604% 016037 O000l2 O0116e MOV RHOSIURO),STHP2 {GET THE DRIVE, STATUS REGISTER FROM PORT A. 
8806 OSE0S4 013737 O01162 OO1156 MOV STMP2 eTHbe ;COPY IT INTO °STMPO’ 
8807 Oeb0b2 042737 100100 001156 BIC #ATAIVV,STMPO : PORT DEPENDENT BITS FROM THE COPY 
8808 113760 soled 000010 MOVB  PORTB, RACS2(RO) SELECT PORT B. 
| g809 056076 016037 le OO1164 MOV RHOSI(RO).STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
| 8810 058104 013737 001164 O01160 MOV STMP3, STMPL :COPY IT INTO 'STMP 
| 8811 O56112 042737 100100 001160 BIC BATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
B8i2 056120 023737 OO11S6 001160 CMP STMPO, St IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
8813 056126 OO1006 BNE BYS : NO 
| 8814 956130 005737 001156 TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
} Beis OSb134 001045 BNE 65S BR IF NOT 
8816 056135 104046 ERROR 46 *REPORT DRIVE NOT IN NEUTRAL OR NOT SEIZED 
8817 056140 000137 OS6340 IMP 68S *BYPASS THE REST OF THE CHECKS 
8818 056144 013737 OO011l62 001126 64S: MOV STMP2,SBDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
| BB819 O561S2 013737 001220 001226 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 8820 O56160 113760 O0lee0 o000I0 MOVB § PORTB,RHCS2(RO) ; 
| 8821 056166 005737 001156 TST STMPO’ >SEE IF STATUS EQ 0 FROM PORT A. 
| 8822 56172 1414 BEQ BSS ig? 
8823 174 13737 001216 001226 MOV TA, PTNBR 12] FORT IF TES TEST T SHOWS DR DRIVE NOT IN NEUTRAL 
Bes Esty fierce Gaulle BMI «le FomactneSSlnn forer'eoar gt me 
| peesie 413780 001160 TST STMP1" sSELECT IF eon TUS EQ ZERO FROM PORT B. 
OSb222 O010le2 BNE 66S BR IF NOT 
056224 bier? 177777 001242 65$: MOV #-1,RELERR SET ’RELEASE ERROR’ INDICATOR 
056232 O01 ll MOV sil’ RHCSI(RO)  :CLEAR THE DRIVE 
8 
056240 012760 000013 o00000 MOV 13, RHCS1(RO) j RELEASE THE ORIVE 
056245 104026 ERROR *TYPE ERROR MESSAGE 26 
| 056250 13737 001162 001126 66S: HOV Sipe, se ,SBODAT  ;LOOK FOR S17 FAILURES WHEN RHDS! READ 
pepsey piss % 1 Bat BIC ma rHpS che ME LECK THE ATTN BIT 
’ 
| 056272 023737 001124 OOlite CMP lM y STMP2 ALL BITS OK ? 
056300 001401 BEQ 7S BR IF OK FROM PORT A. 
| 056302 109007 ERROR ?REPOR 
056304 013737 OO1164 001126 67S: MOV STMP3, SBDDAT *CHECK RHDS! FOR BIT FAILURES - FROM PORT B. 
056312 013737 001220 001226 MOV PORTB, PTNSR *C P 
pepase 042737 100000 OO1164 BIC #ATA, $TMP3 "DON’T CHECK THE ATTN BIT 
| 056326 023737 O011e4 001164 CMP SGDDAT,STMP3 SEE IF READ OK FROM PORT B. 


{ 
' 


pe rn ee ey 
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DERPPA.P11 TYS TEST PORT 'A” ALTERNATE ATTENTION BIT PATH 





& 00140 BEQ 8 “BR IF OK 
Ee Geese 194007 es ERROR B REPORT ERROR 
§ SERAFRAR AREA ALE SEAS SEAS LASALLE REE LAELLREAASELA LEE SARLL ELLA AELSE SS 

y j#TEST 46 TEST PORT 'B’ ALTERNATE ATTENTION BIT PATH 
ga49 HAVERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
Bee Bey i# A. SET THE ATTENTION BIT FOR PORT ’8’. 
eee5 i B. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING 0’S INTO RHDSL. 
See :% (C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
BE5b c FOR THE DRIVE IS SET. 
ecsg : PEE TTTTT TTT TTT TTT TTT TET TTTETTTTTTTTTTTTTTTOCSTETSTET TOT EETT TT 
8859 oOSE342 tsTue: 
8860 OS6342 o00004 SCOPE s INITIALIZE THE SCOPE HANDLER 
8861 OS6344 005737 001266 TST KYBCTL *PERFORMING ONLY SINGLE TESTS ? 
8862 056350 001406 BEQ 2s BR IF NOT 
8863 056352 100002 BPL 1$ ‘BR IF JUST. ENTERED TEST 
8864 056354 000137 002410 JMP EXEC RETURN & T TEST NUMBER i 
8865 056360 012737 177777 001266 1$: MOV #-1, KYBCTL ‘SET CINE Test INDICATOR aa 
8865 112737 001102 25: + MOVB #46'STSTNM ;TEST NUMBER : 
8867 056374 012737 OSE416 001106 MOV 8TEST46,SLPADR :LOAD LOOP ON TEST ADDRESS Np 
B868 012737 001110 MOY STESTHC! SLPERR LOAD LOOP ON ERROR eoDRESS 
BBE 056410 012737 007640 001170 MOV #4000.,$TIMES :;D0 4000. ITERATI 
887 

} g « LEALEASLE LAFF ALAS LLL ELLA LAL SKA LALA LE LAL SSAA KARE LFA EL ELE L ELH REKSESSSES 
e573 *END OF *SCOPE’ SETUP - START OF MAIN TEST 
8875 OSb416 TESTYE: 
Be ae ;CLEAR ATTENTION BITS FOR BOTH PORTS 
Bae 056416 113760 001216 000010 MOVB = PORTA RHCS2(RO) sSELECT PORT #A 
e880 095060 o00012 CLR RHDS1tRO) :SEIZE THE DRIVE 
8881 000011 opo000 MOV #1i,RHCSI(RO) ISSUE DRIVE CLEAR 
000013 000000 MOV #13:RHCSI(RO) RELEASE He DRIVE 
Beet Ve 57 rane: COR” ponte me sSELSCT FOR te THROUGH PORT ’B’ 

fy dit 

888S 00011 opo000 MOV #11,RHCS1(RO) Ecce THe DRIVE 
ee eo ath ors t 33 S500 tp MOVB ebat RacseeRO) sRELEASE THE RIVE 
gEag peeens bi eeeb 9559 000014 MOV #-1,RHERI(RO)  ;SET ERRORS TO FORCE ATTN BIT ON PORT B 
£889 005060 000014 CLR RHERI (RO) CLEAR THE ERRORS 
8890 056512 113760 001216 OO0D10 MOVB PORTA, RHCS2(RO) ’;SELECT PORT A 
8291 O05 000012 18: TST RHDS1 (RO) ;WAIT FOR ORIVE TO RETURN To NEUTRAL 
8892 056524 001775 BEQ 1S *BR IF STILL SEIZED BY PORT B 
8893 056526 012737 900016 001122 MOV #RHAS . SBDADR ;FORM ADDRESS OF ATTN REG IF ERROR 
£894 Beene 0011 ADD T 
8895 OS6540 013737 001224 001124 MOV ASR1, SGDDAT ; 00D DATA FOR ERROR MESSAGE 
BB96 056546 013737 O0lec4 OO11E0 MOV AKE DATA COMPARE MASK 
e897 056554 005137 O01160 COM i COMPLEMENT IT 





ee 
' 
‘ 
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DERPPA.P11 Ts TEST PORT ‘8’ ALTERNATE ATTENTION BIT PATH 
8838 6560 012737 999102 001110 MOV #°8. SLPERR sLOAD LOOP ON ERROR ADDRESS 
33 113760 l2ei6 900010 MOVB PoRtA. RHCS2(RO) ;SELECT PORT 
8900 056574 013737 OO0l216 OOl2e26 MOV PORTA,PTNBR ;MO Ove PORT ADDRESS TO LOCATION FOR TYPEOUT 
B90 o5b60 737 o01e16 001230 MOV PORTA, SEIZPT eee ized PORT 
1 le CLR RHDS1{RO) SEIZE THE DRIVE THROU PORT 
8303 056614 016037 OOO016 O01126 2s: MOV RHAS(RO) . SBDDAT SEL THE CONTENTS 0} vee ATT ENTION REG 
8904 O56622 913737 O01!26 001156 MOV S8DDAT T,STMPO 389— | PUT CONTENTS INTO LORKING LOCATION 
8905 056630 043737 001160 O01156 BIC 1, $TMPO :CLEAR OTHER 
8308 OSb66 bea7 37 001124 001156 CMP Scppat. STMPO :SEE IF ATTN BIT FOR DRIVE SET 
44 OO141i BEQ $6 : 
8908 OS6646 1 ERROR Fe REPORT THE ERROR 
£909 OS66 001170 CLR TIMES ?CLEAR ITERATION COUNT 
89196 056654 032737 001000 177570 SIT #SWO9, SWR “LOOP ON THE nBRrOR? 
8911 001402 BEQ +6 iBR IF SuO3 SET. 
B312 4 000177 122220 IMP OSLPERR THE LooP ANDRESS 
8913 O565 37 OO1104 3S: INC SICNT OO ORE MENT THE ITERATION COUNT 
8914 056574 623737 001104 0o01170 CMP SICNT, STIMES D0 THE SUBTEST SOME MORE ? 
8915 056702 O02002 BGE +6 ‘BR IF NOT 
B16 055704 000137 9S&614 IMP 2s DO THE SUBTEST AGAIN 
e318 sRELEASE THE DRIVE FROM PORT A 
8920 0S6710 001216 000010 MOVB PORTA, RHCS2(RO) SELECT PORT A 
8921 056716 013737 001216 001226 MOV PORTA, PTNSR ; MOV T ADDRESS TO LOCATION FOR TYPEOUT 
Bice 058724 0 090913 MOV #13, RACS1(RO) ViSsuE RELEASE THROUGH PORT A 
B3e4 ;VERIFY THAT THE DRIVE IS IN NEUTRAL 
8926 956732 005037 oo1242 CLR RELERR sCLEAR THE ’RELEASE ERROR ’ INDICATOR 
8927 056736 012737 O000l2 ODl1z22 MOV #RHDS1, SBDADR FORM THE ADDRESS OF RHDS1 FOR TYPEOUT 
8928 056744 060037 ODll22 ADD RO, $B) 1/0 BASE ADDRESS 
8929 056750 012737 011700 001124 MOV #MOL!PGM! DPR! DRY! VV siooat ;COMPARISON CONSTANT 
8930 056756 113760 1216 990019 MOVB PORTA RHCSE(RD) ; : T’A. 
8931 056764 01 1 1162 MOV RHDS1(RO),S$TMP2 ; HE DRIVE STATUS REGISTER FROM PORT A. 
013737 OO01162 001156 MOV STMP2, STMPO coer Tol Be Sine 
042737 100 001156 BIC #ATA!VV, STMPO LEAR NOENT BITS FROM THE COPY 
il 1 600010 MOVB  PORTB,RHCS2‘RO) ;SELECT 


PORT 
MOV RHDS1{RO) STMP2 ;GET THE DRIVE ‘greats REGISTER FROM PORT B. 


Y IT 
; seOeL IT : NDENT BITS FROM THE COPY 
TMPO, STMP1 :1S THE PoTaTUS REGISTER THE SAME FROM BOTH PORTS ? 


0237. CMP 
001006 BNE 64S :BR IF NOT 
057046 005737 001156 hve STMPO Be TP Rot ARE THE SAME: ARE THEY ZERO ? 


6 PORT DRIVE NOT P NEUTRAL OR NOT SEIZED 
JMP 68S t BYPASS THE REST OF THE CHECKS 
126 64S: MOV STMP2, SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
226 MOV PORTS, PTNBR iB! pie feet at IF TEST SHOWS DRIVE NOT IN NEUTRAL 
ue $T ;SEE IF STATUS EQ O FROM PORT A. 


65S F ZERO 
001226 V PORTA, PTNBR ine Cont, iF TEST SHOWS pave head IN NEUTRAL 
001126 MOV STMP3, SBODAT ; BAD gt. R ERROR TYPE OUT 
000010 MOVB  PORTA,RHCS2(RO) ;SELECT 

005737 TST STMP1’ ;SEE IF STATUS. EQ ZERO FROM PORT 8. 
057140 0010le BNE 665 ;BR IF NOT 
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T46 TEST PORT °B’ ALTERNATE ATTENTION BIT PATH 


S$: MOV #-1,RELERR ;SET ste ta tye INDICATOR 
MOV #11,RHCSI(RO)  ;CLEAR 
MOV #13,;RHCSI(RO)  ;RELEA cE OR IVE 


ERROR 26 “TYPE ERROR MESSAGE 26 
66S: MOV SiMe, $B008T LOOK FOR oe ni RILURES WHEN RHDS1 READ 
MOV PORTA :CH HANGE P UMBER 
SIC #8TR ernpee : DON’ T CHECK THE ATTN BIT 
CMP GDDAT,S$TMP2 ALL BIT 
SEQ £38 *BR IF OK oKom PORT A. 
ERROR 7 REPORT ERRO 
67S: MOV $TMP3,SBDDAT  :CHECK RHDS1 FOR BIT FAILURES - FROM PORT B. 
MOV PORTB’ PTNBR ‘CHANGE PORT NUMBER 
BIC #aTR STH :DON’T CHECK THE ATTN BIT 
CMP GDOAT, $ :SEE IF READ OK FROM PORT B. 
BEQ ce :BR 
ERROR 7 ?REPORT ERROR 
68S: NOP 
IMP SEOP ;GO TO THE END OF PASS ROUTINE 


5p RRR REE EERE ERE E HERE EEE EERE E LAER EEE EER EEE EEEEEES 
~SBTTL ##% SUBROUTINES ### 
§ p RRR RRR RAE EERE REEL EEE EE EE EEE EEE EEE EERE ER EERE EEE REAR EEE EE EEE 
;ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
;IF CLOCK IS PRESENT, THE CLOCK WILL BE STARTED 
CKCLK: MOV #CKCLK1 Q#ERRVEC ;SET UP VECTOR FOR CLOCK CHECK 
CLR Q8ERR P 


VEC+2 : NEW 
TST K sCHECK FOR KW11-P 
maw SLPVEC,RI1 *KW11-P VECTOR ADDRESS 
MOV #CLOCK? (R1)+ ;SET UP KW11-P VECTOR 
MOV #300, (RI) W- PRI 6 
MOV #-1 SEK *LOAD COUNTER BUFFER WITH 1°S 
HOV bie gic ;SET CLOCK - CNT UP, 16S, CONT INT 


B 
CKCLK1: ADD SP sRESTORE THE STACK POINTER 
MOV sckeL ke, DWERRVEC’ 


i CHRINGE ERROR VECTOR TO CHECK FOR KWL1-L 
TST aSLKS LOOK 


W1l-L 
MOV SLLVEC,R1 Kd tt { ECT OR ADDRESS 
MOV CLOCK: (R1)+ ;SET UP KWil-L VECTOR 


MOV #300, (R1) *PS 
HOV #190, gSLks :SET KWil-L INTERRUPT 
CKCLK2: ADD #4, SP sRESTORE THE STACK POINTER 
ADD #2, (SP) INCREMENT RETURN, NO CLOCK 
CKCLK3: HOV 46, JHERRVEC "RESTORE THE ERROR VECTOR 
sROUTINE TO COUNT CLOCK TICKS 
CLOCK: ADD #17. , TIME ;ADD 17 MS TO ELAPSED TIME COUNTER 
TST WaTCh 18 $ WAT cH ALREADY ZERO ? 
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#&#% SUBROUTINES ### 


O4-CCT-76 10:31 PAGE i80 











10 e732 162737 00021 o01246 SUB #17. ,WATCH ; SUBTRACT 17_MS FROM WATCH DOG COUNTER 
11 O57440 100002 BPL 1$ ‘BR IF NOT MINUS 
9012 oS7442 605037 oo1246 CLR WATCH * CLEAR Marc DOG COUNTER 
3013 os7446 o0000e2 1$: RTI * RETURN 
3015 sROUTINE TO CALCULATE + AND - 25% TIME TOLERANCE VALUES 
9017 162706 o90004 TOLER: SUB #4, SP gseTuP STACK 
3018 Sy O1G616 000004 MOV 4(SP) ;SAVE_STACK 
$01 7460 013546 MOV a(Be)4. Tp :GET TIME VALUE 
8020 OS7462 O11666 oo0004 MOV (SP), 4{SP) :MOVE TIME VALUE 
e021 OS7466 011666 000006 MOV (5P)*6(5P) *MOVE VALUE AGAI 
8022 057472 O0b216 ASR (SP) *DIVIDE BY 
8023 057474 006216 ASR (SP) ‘DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
9024 057476 O61666 oco0004 ADD (SP). 4(SP) ;CALCULATE UPPER LIMIT FOR TIMEOUT 
9025 057502 162666 o00004 SUB (SP)4,4(SP) ALCULATE LOWER LIMIT FOR TIMEOUT 
9026 oS7506 000205 RTS RS RETURN WITH TOLERANCES ON THE STACK 





9027 
9028 5p RIE IEHE HERRERA ERR R EAE REE ER REEL REAR E EEE R ERLE EERE EEE 
oat -SBTTL *SYSMAC’ UTILITY ROUTINES 






5 5 RARER ER EERE EA AAE EERE REE ERE LE LE LEELA LEE RERE EERE ERLLLEELELELELELELLELE 







3034 5 RRR RHEE EA RAH E LEER REAL REA EE EERIE EE EEE EERE EERE 
3036 -SBTTL END OF PASS ROUTINE 

9038 ; INCREMENT THE PASS NUMBER ($PASS) 
9040 






:XINDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
TYPE "END PASS #XXXXX" (WHERE XXKRE IS A DECIMAL NUMBER) 
3041 ;#IF THERES A MONITOR GO TO IT 
anus ;#IF THERE ISN’T JUMP TO TST1AA 















057510 oo0004 
204 gs7ole 005/37 001266 TST KYBCTL ENTERED TEST VIA KEYBOARD COMMAND ? 
a Bren mee Brig fey SRN uo gen 
i Bn ely li ie a 
9052 057540 042737 100000 o01100 . ° BIC #100000, SPASS :iDON-T ALLOW A NEG. NUMBER 
apeq peyecp ined SEOPCT: .WORD 1 uae 
9055 057552 003031. BGT SDOAGN ss YES 7 
057554 012737 seal NOV (PC)+,a(PC)+ *:RESTORE COUNTER 

s058 ” SEOPCT 

8059 057562 104400 os764e2 PE SENDMG 3;TYPE “END PASS a” 

9060 057566 013746 001100 MOV $PASS, -(SP) 35SAVE, $PASS FOR TYPE 

apes Be5e 5G tau 057657 TYPE SENULL OO OE ANOLE CHARA Reel agg 
057600 013700 oo004e2 SGETH2: MOV dee ::GET MONITOR ESS 

8064 057604 001414 BEQ 3008 A } BRANCH IF _NO HONTTOR 

| S 057606 022700 057626 MP #SENDAD, RO 

| 

1 eels 
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END OF PASS ROUTINE 


177777 g00002 


002704 
047105 
051523 

377 


177570 


020104 
021440 


000 


000004 


177570 


001104 


001104 
001170 
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BNE SENDAD ; ;NO--BRANCH 
CMP #-1,2(R0) ::YES--IS THIS THE LAST PASS? 
BNE SDOAGN :NO--MAKE ANOTHER PASS 
RESET *:CLEAR THE WORLD 

SENDAD: JSR PC, (RL) $360 TO MONITOR 
NOP ;;SAVE ROOM 
NOP 
NOP PACT 

SDOAGN: JMP asTSTl : sRETURN 


SENDMG: .ASCIZ 15) «12> /END PASS #/ 


$ENULL: .BYTE ;NULL CHARACTER STRING 


a soussaasenaconesshusdsuuuansnacbinessecreansesnessesesnnenenaes 


.SBTTL SCOPE HANDLER ROUTINE 


;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 





; #AND LOAD THE TEST NUMBER(STSTNM) INTO THE Piartey REG. (DISPLAY<7:0> ) 
3% E IN S ¢15;08> 


E 
ane SWITCH tll yo PROVIDED BY THIS ROUTINE ARE: 


y=] OOP ON TES 
:x5W11=1 INHIBIT ITERATIONS 
3 *CALL 
3% SCOPE ; ;SCOPESIOT 
SSCOPE: 
ROL QaSuR ; LOOP ON PRESENT TEST? 
jteeeeSTART OF CODE FOR THE XOR jistereeens > 
$xTS 5% ssf RUNNING ON 


MOV #5$. JHERRVEC 335ET FOR T 

3%1?7060 ME OUT ON XOR? 
MOV (SP)+, JHERRVEC j |RESTORE THE ERROR VECTOR 
B Sy vad GO TO THE NEXT 


S$: CMP (SP)+, (SP)+ 3;CLEAR THE STACK a TER. Aas OUT 


MOV (SP) @#ERRVEC 5 3RES TORS THE ERROR 

BR ;LOO0P ON THE PRESENT TEST 
6$:;###s#END OF CODE FOR THE XOR ‘TESTERAGuas 
es: TSTB ©SERFLG 


TST ::HAS AN ERROR OCCURRED? 
BEQ 35 ::BR IF 
4S: CLRB = SERFLG }}ZERO THE ERROR FLAG 
CLR STIMES ;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3S: BIT #81711, d8SWR 5; INHIBIT ITERATIONS? 
BNE 1$ YES 
TST $Pass 33 IF FIRST PASS OF PROGRAM 
BEQ 1 . INHIBIT ITERAT 1ONS 
INC SICNT {| INCREMENT ITERATION COU 
CMP STIMES,SICNT  ;;CHECK THE NUMBER OF SOU TIONS MADE 
BGE SOVER IF MORE ITERATION REQUIRED 
1S: MOV #1, SICNT REIN ITIALIZE THE ITERATION COUNTER 
MOV SMXCNT, STIMES ;3SET NUNBER OF ITERATIONS TO DO 
$SVLAD: INCB $TSTNM ‘COUNT TEST NUM 
MOV (SP), SLPADR ::SAVE SCOPE LOOP ADDRESS 





N_THE “s " TESTER CHANGE 
THIS INSTRUCTION TO A_"“NOP” (NOP=c4 
MOV QHERRVEC,-(SP) ;;SAVE THE ion OF THE ERROR VECTOR 


Q) 











0 = 0 bb pe 
furur 
wry 

Oo o— 
o ~~ 
oO 
Oo 
ww 
ao 


GIGIGIGIGIG) 
total rete tt ttt 


Ww 
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060172 
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SCOPE HANDLER ROUTINE 


pi se 9? 


113737 
105237 


100001 
000000 


ocooce 


104409 
010046 
005000 
153700 
001004 


013746 


001102 177570 SOVER: 
001106 


001102 
001103 


001102 
002009 


001201 
001114 


001116 


001234 


177570 
177570 


001116 
001114 
177570 


MOV 
MOV 
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STSTNM,@#DISPLAY ;;DISPLAY TEST NUMBER 


SLPADR, (SP} 


an E RETURN ADDRESS 


NURBER OF ITERATIONS 


SMXCNT: 4 

rE BRE e rn ee Ter Rare he ar tL a et or ee 
«SBTTL ERROR HANDLER ROUTINE 
tycave ef 2 WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;#AND GO TO SERRT 

sETHE SHITCH wag PROVIDED BY THIS ROUTINE ARE: 


INHIBIT Fate TYPEOUTS 


:*5W13=1 
:*5W10=1 
> *CALL 
$ 


SERROR: 
78: 


1$: 


2$: 


3$: 


RROR_ITEM 


M NUMBER AND THE ADDRESS OF THE ERROR CALL 


BELL ON ERR 

N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
ee, TST 

SERFLG sie T, THE ERROR FLAG 


7$ 
STSTNM, GEDISPLAY 'j 
#BIT1O, 4S 


SBELL 
ERTT 

(SP) FeRRPC 

#2, SERRPC 
seeaerC SITEMB 
#BIT13, d#SWR 

PC, J#SERRTYP 


SCRLF 
deSWR 
3$ 


FLAG GO 
j BELL 


;DON THE TQ ZERO 
Yet y Eneone NUMBER AND ERROR FLAG 


eR NG BELL 
;;COUNT THE NUMBER OF ERRORS 


:00U ADDRESS OF ERROR INSTRUCTION 
eee AND SAVE a. ERROR ITEM CODE 


3 ok IP Va 3 IF 


K YPEOU 
sek TO USER ERROR ROUTINE 


s;HALT ON ERROR 
s3SKIP TF CONTINUE 
ttHP_. JN ERROR! 


R ; ; RETURN 
 Hedaaa a aaannannaeeeeeeeeeeneh nies aeaaaaaeaeeeeeeeens 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
;*THIS ROUTINE USES THE “ITEM COTRE ve (SITEMB) TO ps ene WHICH 


ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB) 
AND REPORTS THE APPROPRIATE INFORMATION SBONCERNING THE ERROR. 
SERRTYP: 

TYPE, SCRLF s;"CARRIAGE RETURN” & “LINE FEED" 

MOV RO, -(SP) : 0 

CLR ::PICKUP THE ITEM INDEX 

BIS8 ad&#SITEMB,RO 

BNE 1$ iif ITEM NUMBER 1S ZERO, JUST 

*: TYPE THE PC OF THE ERROR 
MOV SERRPC,-(SP) § };SAVE SERRPC FOR TYPEOUT 





;;ERROR ADDRESS 
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ERROR MESSAGE TYPEOUT ROUTINE 


abgse 
00 


012600 


060330 


001274 
0&02e6 


001201 


060244 


001201 


060324 


001201 
000 


2s: . WORD 
3$: 


4$: . WORD 
S$: 


69: TSTB 
B 


7$: 


9$: MOV 
108: by 


R 
118: “Borne 





R 
#SERRTB, RO 
(RO)+,2$ 


ofa1)+,-(SP) 

as 

a(R1)+,-(SP) 

(RL) 

% 

Bg" 

(SP) 77h 
ater 


ee 
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si80, ao ASCIICALL DIGITS) 


;}ADJUST THE INDEX SO_THAT IT WILL 
tt WOKK FOR THE ERROR TABLE 


;;FORM TABLE POINTER 

ei "ERROR MESSAGE” POINTER 
;;9KIP TYPEOUT IF NO POINTER 
fp Fl THE “ERROR MESSAGE” 

ROR MESSAGE” POINTER GOES HERE 
SAGAR IAGE RETURN" & “LINE FEED” 
Ht “DATA HEADER” POINTER 
sieeee ft YPEOUT _IF 

YPE THE “DATA HEADER” 
bataTA HEADER" POINTER GOES HERE 
33 CARRIAGE RETURN” & “LINE FEED” 


AVE R 

;;PICKUP “DATA TABLE” POINTER 

;;BR IF_NO DATA TO BE TYPED 

3 PICKUP “DATA FORMAT” POINTER 
“OCTAL” OR “DECIMAL” 

: BR IF_DECIMAL 

;;SAVE J(R1)+ FOR TYPEOUT 

33GO0 TYPE--OCTAL ASCTTCALL DIGITS) 


73 SAVE a(R1)+ FOR TYPEOQUT 
;GO TYPE--DECIMAL ASCII WITH SIGN 
its THERE ANOTHER NUMBER? 


;BR_IF_NO 
i TYPE THO(2) SPACES 
; LOOP 


3 RESTORE Rl 
;;RESTORE RO 
33 CARRIAGE RETURN” & “LINE FEED” 


URN 
: THOC2) SPACES 


Hd HO gE BRB p OEE adda EE aaa aaaeeeee 
-SBTTL TYPE ROUTINE 
;¥ROUTINE TO TYPE ASCIZ ar MESSAGE MUST TERMINATE TER A 0. it 


;*THE ROUTINE WILL 
;*NOTEL: $ 


:¥NOTEe: 
j ENOTES: 


; 

*CALL: 
:*1) USING A TRAP INSTRUCTION 
;% TYPE ,» MESADR 


ty TYPE 
ty MESADR 


L INSERT A 
ULL CO 


$FILLC CONTAINS THE CHARACTER TO FILL AFTER 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 





LINE FEED. 
NULL CON H A THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER ERARRCTERS REQUIRED. 





eee ee ee 


1S 
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b 


re§ 


DERFP-A, SECS DUAL 
] ~ 


‘ "as 
: oe TYPE Rew ! 


Aye 
‘The ~ 
“Oe- 
Py 
ia] 


$234 nies, ES s 
$235 1 #2) SINS @ ISR INSTRUCTION aehk 
$236 “ pS, -(SP) : sPUSH ROCESS oR STATUS WORD ON THE STACY 
23; 1# PC STYPE ::CALL TYPE ROUTINE 
#38 1+ es ‘FIRST ‘ADRESS OF MESSAGE 
| $540 30 105737 00:18: $TYPE: STB  STPFLG 5315 THERE A TERMINAL? 
| 4 105032 BP, 1$ ::6R IF YES 
$42 069336 009 HALT STHALT HERE IF NO TERMINAL 
S243 D60340 90040: BR : : LEAVE 
$244 O60342 O10046 18: MOY RO, = SP) i+ SAY RO 
S245 617600 900002 ‘ MOV de!SP) RO T AQDRESS OF OSC12 STRING 
S246 060350 112046 25: “OVA (RO) +, - (SP) Hae CHARACTER TO BE TYPED ONTO STACK 
| 9847 Ge0352 O01C0s BNE 4S SIBR IF iT ISN'T THE TERMINATOR 
6248 660354 005726 TST (SP)+ ;}1F TERMINATOR POP IT OFF THE STACK 
| $545 He0366 932600 MOV (SP )4.R0 STORE. RO 
G>50 060360 O62716 000002 2$: ADD 02, (SP) :iegdUsT RETURN PC 
| $35] O60364 00002 RTT URN 
060366 OON72? SEoNcC 4S: JSR PC. STYPEC :2G0 TYPE THIS CHARACTER 
060372 123726 Oollso 5S: cmpe «=O SFTLLC,(SP)+ © E18 IT TIME FOR FILLER CHARS. ? 
| $254 001364 $ ti TF NO GO GET NEXT CHAR. 
S255 O60400 O1S746 001146 MOV SNULL, - (SP) ::GET # OF FILLER cos NEEDED 
| $256 j S;AND THE NULL C 
$257 O60404 105366 00000! &$: DECR = s«L( SP) ;$DOES_A NULL NEED T0 BE TYPED? 
$358 O694i0 O02770 BLT 5S ‘BR IF No--G0 POP THE NULL OFF OF STACK 
$359 060412 004737 o604e0 JSR —«- PC, STYPEC i369 TYPE A NULL 
| §260 O60416 O00772 ER bs 
| §261 O60420 105777 120516 STYPEC: TSTB aSTPS Si earT UNTIL PRINTER IS READY 
«$365 560434 190375 SPL STYPEC 
363 Og0426 116577 0000 120510 MOVe  2(SP).aSTPB ssLOAD CHAR TO BE TYPED INTO DATA REG. 
| $264 Oeo434 900207 PC 
acre 4 RELELESSESEFELELLASASLSLSFESAALELRES ESLRESEASLFELLLASAELALSSLELLESES 
367 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
_ $368 ;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
8376 :#OCTAL (ASCII) NUMBER AND TYPE IT. 
57] ia #$TyPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
$272 tt MOV NUM, -(SP) sNUMBER TO BE TYPED 
6274 i TYPOS ttCALL FOR TYPEOUT 
$275 te “BYTE N ::N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
$276 * "BYTE OM 33M=1 OR 0 
6277 te 1=TYPE LEADING ZEROS 
6278 i# FA eUPPRESS LEADING ZEROS 
S58 Spe ; FSTVPON-=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
261 ;#STYPOS OR STYPOC 
S22 *#CALL: 
| §pa3 tf HOY, NUM, -(SP) ;;NUMBER TO BE TYPED 
| S284 i YPON *:CALL FOR TYPEQUT 
eee | #$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
SEee + NOV NUM, -(SP) ;;NUMBER TO BE TYPED 
S226 . YPOC ::CALL FOR TYPEOUT 








(nee 


TO OCTAL (ASCII) 


060436 017646 009000 STYPOS: MOV ot -(SP) ;PIC a 


sae 3 
f 
8 
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dE Pi} BINAR AND TYPE 
? 001 080661 MOVE 1<88) "SOF ILL  FLORD ep FILL en, ITCH 
see ies 112637 960663 MOVE  (SP)4'SOMODE+1 s NUMBER OF DIGITS a TYPE 
DSo454 ie oecose BoD #2, (SP) : : ADJUST SE TURN ADDRES 
9295 Peabe 112737 OO0001 O&0E61 STYPOC: MOVB sl,$OFILL sont THE ZERO FILL SUITCH 
9267 60470 lie73s7 000006 OoscEe3 MOVE 86, SOMODE+1 ::SET FOR SIX(&) DIGITS 
$368 060476 112737 000005 S60660 STYPON: MOVB 85, $0CNT i$BET THE ITERATION COUN 
$299 60504 010346 MOV R3,- (P) ::SAVE R3 
$300 De0=06 O10446 MOV RY’ 138) :: SAVE Re 
$301 060510 9O10S46 MOV RS, -(SP) SAVE R 
$302 o60512 113708 O&08E3 | MOVE SGAOOESH, RY ::GET THE NUMBER OF DIGITS TO TYPE 
9303 O60516 NEG 
$304 060520 oo0006 ADD ne, RY ;;SUBTRACT IT FOR MAX. ALLOWED 
$305 960524 110437 O&0662 MOVE RY’ SOMODE :SAVE IT FOR U 
| 8306 060530 113704 D60661 MOVB  SOFILL. RY :GET THE ZERO ELL SWITCH 
$397 960534 Gibb0s o00e1e MOV 12(5P).RS 3 ;PICKUP THE INPUT NUMBER 
' 9308 OB0540 CLR R3 LEAR THE OU Wo 
$309 60542 006105 18: ROL RS : ;ROTATE MS® INTO “C™ 
$315 O60544 00404 BR 33 MS 
$311 O60546 006105 2s: ROL RS FORM THIS DIGIT 
| $312 060550 906105 ROL RS 
$213 o60SS2e 006105 ROL RS 
| $314 O69554 910503 = MOV RS,R2 
$315 060556 006103 3S: R3 :;GET LSB OF THIS DIGIT 
| $316 060560 105337 ocEe0ste DECB  $0MODE :TYPE THIS DIGIT? 
| §317 O80564 10001e BPL 7§ ::BR IF NO 
| $318 60566 042703 177770 BIC $177770,R2 ::GET RID OF JUNK 
' $319 660572 o01002 BNE 4§ : TEST FOR O 
/ §320 060574 005704 TST RY ::SUPPRESS THIS 0? 
| $32] 960576 001403 BEQ c$ :BR IF YES 
| $332 OS0600 005204 4 INC RY *:DON’T SUPPRESS ANYMORE O°S 
| §323 O60602 052703 oD0060 BIS #'0,R3 ?:MAKE THIS DIGIT ASCII 
. 34 052703 ocoo40 $s BIS #’ 'R ::MAKE ASCII IF NOT ALREADY 
| $325 O606le 110337 O6dEsE MOVE 8s ::SAVE FOR TYPING 
| 9336 060616 104400 O60656 TYPE $ ::GO TYPE THIS DIGIT 
eer 060622 10s337 060660 7$ DecB 32s SOCNT ::COUNT SY 1 
Oelees ? T 2g °:BR IF MORE TO DO 
| §329 080630 o0e4c2 BLT 6$ ::BR IF DONE 
| $330 060632 905204 INC RY >: INSURE LAST DIGIT ISN’T A BLANK 
| §331 O60634 000744 BR 2s *:G0 DO THE LAST DIGIT 
| 98332 060636 Oleb0s é$: HOV (5P)+,R5 s RESTORE RS 
a33 pepede bt Seb3 MOV (ep 33° Ra RESTORE R3 
| 9335 O60644 OI6E6— ocOD002 o00004 MOV 2(SP)*4(SP) ::SET THE STACK FOR RETURNING 
9336 O60652 012616 MOV (SP)+" (SP) 
$327 O60654 o00ode R ; ;RETURN 
$328 OG0656 8S: -BYTE 0 :STORAGE FOR ASCII DIGIT 
$339 060657 _000 0 >: TERMINATOR FOR TYPE ROUTINE 
| $340 O606E0 090 SOCNT: EYE 0 *:OCTAL DIGIT COUNTER 
$34] OS0bE 009 oF itt: .8 -BYTE ;;ZERO FILL SWITCH 
6345 BEDEES oocoos NUMBER OF DIGITS TO TYPE 
$343 SOROOE: HRD Oa seaanenndftUreeR OF OUGHT, TO, TYPE, 


o344 
SHS | -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
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;#THIS ROUTINE IS USED TO CHANGE A 16-BIT SINARY NUMBER TG A S-DIGIT 
s#SIGNED DECIMAL (ASCII) NUMGER AND TYPE IT. DEPENDING ON WHETHER THE 
;*#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: #REPLACED WITH SPACES. 
:# MOV NUM, -(SP) :;PUT THE BINARY NUMBER ON THE STACK 
* TYPDS ::G0 TO THE ROUTINE 
STYPDS: “ 

OV RO,-(SP) ;;PUSH RO ON STACK 

“0 R1’=(SP) ::PUSH R1 ON STACK 

MOV Re; -(5P) ::PUSH Re ON STACK 

MOV R3,-(SP) :;PUSH R3 ON STACK 

MOV RS; =( :;PUSH RS ON STACK 

MOV #20200,-(SP)  3:SET BLANK SWITCH AND SIGN 

MOV 20(SP); ::GET THE INPUT NUMBER 

BPL 1$ ::BR IF INPUT IS POS. 

NEG RS ss MAKE THE BINARY NUMBER 

MOVB = #’=, LSP) ;:MAKE THE ASCII NUMBER NEG 
1$: CLR R +:ZERO THE CONSTANTS INDEX 

MOV #SDBLK,R3 ;;SETUP THE OUTPUT POINTER 

MOVB 8’, (R3)4 3;SET THE FIRST CHARACTER TO A BLANK 
2s: CLR Re ;;CLEAR THE BCD NUMBER 

MOV SOTBL(RO),R1  #§3:GET THE CONSTANT 
3S: SUB R1,RS ::FORM THIS BCD DIGIT 

BLT 4§ *:BR IF DONE 

Inc Re >: INCREASE THE BCD DIGIT BY 1 
“i: ADD R1,RS ;;ADD BACK THE CONSTANT 

TST Re ::CHECK IF BCD DIGIT=0 

BNE 5$ :3FALL \é 

TSTB 3s (SP) :;STILL DOING LEADING 0’S? 

BMI 75 ::BR IF YES 
st ASLB =: (SP) >: MSD? 

BCC of ::BR IF NO 

MOVB  1(SP),-1(R3) $3 YES--SET THE SIGN 
b$ BIS #’0,Re ;;MAKE THE BCD DIGIT ASCII 

BIS 8’ ‘Re ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 

nove Re THIS CHARACTER IN THE OUTPUT BUFFER 

CMP 

BLT 2s 

BGT 

MOV 
8S Pere 

BPL 

MOVB 
9S: CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 
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DERPPA.P11 
9492 061052 104400 061100 TYPE $DBLK :sNOW TYPE THE NUMBER 
9403 61056 O16666 000002 cod004 MOV 3(SP), 41 SP) 2:ADJUST THE STACK 
c. 061064 Moy (SP)+, (SP) 
94 } RTI :;RETURN TO USER 
9405 061070 923420 SOTBL: 10000. 
9497 0661972 001750 1000. 
9408 061074 300144 00 
94039 061076 O90012 10. 
bs 9419 061105 OC5004 $O8LK: .BLKW 4 
ratty . TLSRSLEARERALFSSSAALSSRFESSELESHEFHRE SEAS SLLELLSSLE SS FLFLFLEFLLSE 
1 
gts .SBTTL TTY INPUT ROUTINE 
es :#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
8417 : ROCHR ss INPUT A SINGLE CHARACTER FROM THE TTY 
a8 :# RETURN HERE ::CHARACTER IS ON THE STACK 
9420 : 
eel 061110 1646 SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC 
S422 O6lil2 016666 900004 coDDte OV 4(SP} 2°SP) SAVE THE PS 
9423 061120 105777 120012 iS: TST8 = aSTKS . OR 
Sa25 Db lies 100375 1$ AC T 
9425 061126 11 120006 00004 MOVB  3STKB,4(SP) READ THE TTY 
| $426 O61134 O42765 177699 900004 BIC 81C(177>,4(SP) 3:GET RID OF JUNK IF ANY 
| $427 O61142 OodoDe RTI *:G0 BACK TO USER 
| Sees . PESTS ETETTCTTTT TTC TT TET ESET TTT TT TT ETETETTTETOTETTTETTTTeTTTTey 
28 j#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
9431 : ROLIN ;; INPUT A STRING FROM THE TTY 
| 32 # RETURN HERE *:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
| 333 * >: TERMINATOR WILL BE A BYTE OF ALL 0’S 
| $435 081144 010346 SRDLIN: MOV R3,-(SP) 3 R3 
, 9436 O81146 o0so46 LR -( 8p) CLEAR THE RUBOUT KEY 
| $437 061150 012703 oOb1405 1$: MOV #STTYIN, RB *:GET ADDRESS 
' $438 061154 022703 061414 2s: CMP SSTTYINS7,R3 ::BUFFER FULL? 
' 439 O81160 101456 BLOS 4§ ::BR IF YES 
| 9440 O61162 104412 G0 READ ONE CHARACTER FROM THE TTY 
| 9441 O51164 112613 MOVB  (SP)+,(R3) *:GET CHARACTER 
| 442 OS1166 122713 000i77 CMPB)s«# 177, {R3) ::IS IT A RUBOUT 
| 9443 061172 001022 BNE S$ :BR IF_NO 
| 9444 061174 005716 TS (SP) :1S THIS THE FIRST RUBOUT? 
| $445 061176 001007 BNE > _- TEBR_IF NO 
aie 061200 112737 000134 061376 MOYS = #°\, 93 >: TYPE A BACK SLASH 
| $447 061206 104400 061376 TYPE 
| S448 O6lel2 012716 177777 MOV b-1, (SP) ;;SET THE RUBOUT KEY 
| 9449 061216 005303 6S: DEC + BACKUP BY ONE 
| $450 061220 2027 061405 CMP R3, #STTYIN STACK EMPTY? 
| $451 061224 1034 BLO 4§ He 5 
| @452 061226 111337 061376 MOVE = (R3),9$ ;;SETUP TO TYPEOUT THE DELETED CHAR. 
453 Obese 04400 61376 TYPE 9 + . 
454 061 boo74e BR 2g GO READ ANOTHER CHAR. 
| 9455 061240 005716 cs: TST (SP) *:RUBOUT KEY SET? 
9456 Oble42 001406 BEQ 75 ::BR IF NO 
9457 061244 112737 000134 061376 MOVB = #’\, 98 >: TYPE A BACK SLASH 





5 


“orn 
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¢ 
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TTY INPUT ROUTINE 


104400 061376 TYPE 9g 
16 CLR (SP) ss CLEAR THE RUBOUT KEY 
lee73 ooco2s 7S: ches 825, (R3) iis CHARACTER A CTRL y? 
104400 061400 TYPE SCNTLU $TYPE A CONTROL “U” 
000726 BR "GO START OVE 
leert3 000012 8$: CMPB sa L2, (R33) $318 CHARACTER A “LF”? 
1011 BNE 3 :: BRANCH 
105013 CLRB ss (R33) ::CLEAR THE CHARACTER 
104960 001201 TYPE  ,SCRLF i TYPE A “CR” 8 “Le 
104409 081405 TYPE STTYIN : TYPE THE IN TRING 
000717 BR $ 33G0 PICKUP ANOTHER CHACTER 
104400 001200 4S: TYPE SQUES TYPE A 
000712 BR 1§ CLEAR THE BUFFER AND LOOP 
111337 061376 33: MOVB  (R2),98 ::ECHO THE CHARACTER 
1 061376 TYPE 
122723 000015 ome biS, (R3)+ $s CHECK FOR. RETURN 
001305 BNE LOOP IF NOT RETURN 
105063 177777 CLRB 3s - 1(R3) CLEAR RETURN (THE 15) 
104400 O01202 TYPE SLF ITYPE A LINE FEED 
005726 TST {SP)+ : CLEAN RUBOLT KEY FROM THE STACK 
012603 MOV (SP)+,R3 “RESTORE R3 
011646 MOV (SP). -(SP) t SADJUST THE STACK AND PUT ADDRESS OF THE 
OlGEES oooo92 MOV 4(SP} 2(SP) FIRST ASCII CHARACTER ON IT 
Ole766 O6140S O00004 MOV sSTTYIN, 4<SP) 
pocoae2 RTI : RETURN 
000 9S: -BYTE 0 :] STORAGE FOR ASCII CHAR. TO TYPE 
p00 0 is TERMINA TOR 
052536 oosocls 000 $CNTLU: BSCTZ PtU/<1S><12> 5 3 CONT 
000007 STTYIN: .BLKB 7 "RESERVE 7 BYTES FOR TTY INPUT 


HEHEHE HEHEHE HHEHHHHHEHGHEHE HSE HEHE HH HEHEHE HEHE HO HEHEHE 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
;*THIS se WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
j #CHANGE IT INARY. 
INPUT cHARACT ERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
+ FOCTAL DiGi Ts. IF AN ILLEGAL CHARACTER IS READ A ™?" WILL BE T wee 


ia FOLLOWED BY & CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER 
Bond BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE "RETURN, 


: RDOCT sREAD AN OCTAL NUMBER 
* RETURN HERE OW ORDER BITS ARE ON TOP OF THE STACK 
* *:HIGH ORDER BITS ARE IN SHIOCT 

011646 SRDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 

016666 o00004 oD0002 MOV 4(SP}.2(SP) oe 

010046 MOV 0,-(SP) ;;PUSH RO ON STACK 

010146 Ri; -(SP) *:PUSH R1 ON STACK 

010246 MOV Re, -(5P) *:PUSH Re ON K 

104414 1$: ROLIN j sREAD AN ASCIZ LINE 

012600 MOV (SP)+,RO 3;GET ADDRESS OF 1ST CHARACTER 

010037 061542 MOV RO,SS$ "AND SAVE IT 

005001 CLR Ri :CLEAR DATA WORD 

ocsooe LR Re 

112046 2s: MOVB (RO) +,-(SP) ;;PICKUP THIS CHARACTER 
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ord FR . 


C TEST = PART 1 MACYLI e7(732) 
READ AN OSTAL NUMBER THE TT ry adi 


I 
OM THE TTY 












8514 O614SO 001420 Be 33 ss IF ZERO ge OUT 
8515 061452 lee716 o00060 CMPB 3 s«w0,, (SP) !:MAKE SURE THIS CHARACTER 
9516 O61455 beSate BGT 4§ *:IS AN OCTAL DIGIT 
9517 061460 ieeris 009067 CMPB sé’ 7, (SP) 
9518 O51464 23 BLT ug 
9519 061466 005301 ASL Rl :3#2 
9520 061470 906102 ROL Re 
8521 061472 006301 ASL RI 5 3#4 
061474 006102 ROL Re 
9523 061476 906301 ASL RI :3#8 
9524 061500 006102 ROL Re 
8525 061502 O42716 177770 SIC #1C7, (SP) s;STRIP THE ASCII JUNK 
9526 061505 01 ADD (SP)+,R1 *:ADD IN THIS DIGIT 
9527 061510 900756 BR 2s *:LOOP 
9528 061512 005726 38: TST (SP)+ CLEAN TERMINATOR FROM STACK 
8529 061514 O10166 o00012 MOV R1, 12(SP) ::SAVE THE RESULT 
8530 061520 010237 O61552 MOV Re: SHIOCT 
9531 061524 012602 MOV (SP) +,Re ;;POP STACK INTO Re 
9532 061526 01260! MOV (SP)+;R1 *:POP STACK INTO Ri 
8533 061530 012600 MOV (SP)+;RO :;POP STACK INTO RO 
9534 pelase RT ee 
8535 061534 26 4$: TS (SP)+ *:CLEAN PARTIAL FROM STACK 
9536 061536 105010 CLRB = (RO) ::SET @ TERMINATOR 
8537 061540 104400 -- ‘TYPE *: TYPE UP THRU THE BAD CHAR. 
8538 061542 090000 S$:. .WORD O 
9539 O61544 104400 001200 TYPE SQUES 7372" "CR" 8 “LES 
8540 061550 000730 BR 1§ :: TRY AGAIN 
9541 061552 o90000 SHIOCT: .WORD 0 **HIGH ORDER BITS GO HERE 
eens : PEePESTTETETETETECTE TOT TT ESET TT TTT CET TETTPETTTTETTTTTereeer ere 
a4 .SBTTL SAVE AND RESTORE RO-RS ROUTINES 
os46 ;*SAVE RO-RS 
9547 3% : 
9548 1 # SAVREG 
9549 j #UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
Sect :*TOP=--(+16) 
St *# 42---(418) 
9552 1% +4=--RS 
9ss4 + +6---R4 
gcss $# +8---R3 
9556 ;#+10---Re 
| 9557 3#+1e---R1 
| 9558 + #+14---R0 
| 9559 
| §560 061554 SSAVREG: 
Fat Ob 134 910046 MOV RO,-iSP) ;;PUSH RO ON STACK 
1556 0101 MOV Ri; -(5P) *:PUSH R1 ON STACK 
| 9563 O61560 0102046 MOV R2,-(SP) >:PUSH Re ON STACK 
| 9564 06 136¢ 010346 MOV R39, -( SP) ;;PUSH Rd ON STACK 
| 9585 61564 O1044e MOV RY, -(SP) ::PUSH R4Y ON STACK 
SS66 061566 010546 MOV RS. -(SP) »:PUSH RS ON STACK 
| 9567 061570 O16646 o00022 MOV 22tsP),-(SP)  :;SAVE PS OF MAIN FLOW 
S568 061574 Ole646 000022 MOV 22(5P);-(SP) 3:SAVE PC OF MAIN FLOW 
S569 961600 ClEB4E 000022 MOV 22(SP),-(SP) »sSAVE PS OF CALL 
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DERPPA.P11 SAVE AND RESTORE RO-RS ROUTINES 


‘ 


5p RARRELARR EEA ERAS ALAA REE RELAL ARERR LALA RE LALA LEAL LALA LERELERE LRA AAERERE 


i 





9570 O&1604 O16646 c000z2 MOV 22(SP),-(SP) ;;SAVE PC OF CALL 
3201 061610 o0000e2 RTI 
9573 s#RESTORE RO-RS 
9574 s CAL: 
9575. RESREG 
9576. Obible énesrec: 
9577 O6l6le 012666 o00022 MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 
9578 O61616 Ol2666 900022 MOV (SP)+, 22(5P) ssRESTOR E PS OF CALL 
8579 061622 0+ cb66 popde2 MOV (SP) +; 201 5P) ‘RESTORE PC OF MAIN FLOW 
9580 061626 012666 2 MOV (5P)+'20(5P) ::RESTORE PS OF MAIN FLOW 
358 Ob 1632 bigos MOV (SP)+/R5 ::POP STACK NTO RS 
goa 1634 Ol MOV (SP)+)R4 : TACK INTO R4 
9583 061636 012603 MOV (SP)+°R3 *:POP STACK INTO R 
9584 061640 Sigb0e MOV (SP)+'Re 33POP STACK INTO 
9585 061642 012601 MOV (SP)+'RI STACK INTO RI 
9585 O61644 012600 MOV (SP)+,RO ::POP STACK INTO RO 
9587 061646 o00002 RTI 
gees 3 FRESESULEEELHSS FLEE LER LEH SLSR FS ESA SLRARERSALSELS EEE ASSES HERE E FARES 
3520 .SBTTL TRAP DECODER 
9¢92 s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 
9693 s BAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
9534 THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
oe seo TO THAT ROUTINE. 
9597 O81650 O1004E STRAP: MOV RO, -(SP) ;;SAVE RO 
9598 61652 016600 op0002 MOV (SP), RO ;3GET TRAP ADDRESS 
8599 061656 005740 TST *BACKUP BY 2 
9600 O61660 111000 MOVB CET RIGHT BYTE OF TRAP 
8601 O&1662 O16000 061670 MOV a :; INDEX TO TABLE 
2008 DS1666 900200 RTS RO -:GO TO ROUTINE 
| Se04 
| 9605 .SBTTL TRAP TABLE 
aos eh ;*THIS TABLE CONTAINS THE. STARTING ADDRESSES OF THE ROUTINES CALLED 
9678 s*#BY THE “TRAP” INSTRUCTI 
| 9609 
9610 : ROUTINE 
| $611 a 
| 9612 061670 $TRPAD: 
| 9613 061670 060330 $TYPE ;;CALL=TYPE TRAP+0( 104400) TTY TYPEOQUT ROUTINE 
| 9614 061672 STYPOC ::CALL=TYPOC AP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
| 615 061674 060436 STYPOS ;;CALL=TYPOS | TRAP+4(104404) TYPE OCTAL NUMBER (NO LEADING 
8616 061676 060476 STYPON ;;CALL=TYPON  TRAP+6(104406) TYPE OCTAL NUMBER (AS PER LAST RAL) 
9617 061700 STY S3CALLSTYPDS © TRAP+10( 104410) DECIMAL NUMBER (WITH SIGN) 
| $618 061702 061119 SRDCHR ;;CALL=RDCHR  TRAP+12(104412) TTY TYPEIN CHARACTER ROUTINE 
| 9619 061704 061144 SROLIN 3 ;CALL=ROLIN TRAP+14( 104414) TTY TYPEIN STRING ROUTINE 
3620 0617 1414 $R00¢ *CALL=RDOCT TRAP+18 (104416) ) READ AN OCTAL NUMBER FROM TTY 
1 06171 1554 Oke tare SAVREG ) SAVE RO-RS ROUTINE 
| 9622 061712 Oblble SRESREG ;;CALL=RESREG TRAP+22( 104422) RESTORE RO-RS ROUTINE 
| 
| 
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DERPPA.P11 TELETYPE MESSAGES 
3628 .SGTTL TELETYPE MESSAGES 
ese fp RRRRERRA LEE ERE ERASE REALL EARL ES ERE SAE ELA SELES ERE LAL EE FEES SEL EL ALLA AES AS 
9630 061714 OCSOIS O42115 O304SS TITLE: .ASCIIT <15><12>/MD-11-DERPP-A/<15><12><12> 
9631 061722 026461 042504 050122 > 
9632 061730 926520 006501 905012 E 
9633 061736 osole 636060 pucog -ASCIZ /RPO4Y DUAL CONTROLLER LOGIC TEST - PART 1/<15><12><12> 
9634 061744 114 
9635 061752 052116 047522 046114 
$636 061760 051105 O46040 043517 
8637 061766 Oui 952040 051505 
9638 061774 124 O20055 040520 
9639 O6e002 OS2elce2 030440 15 
9640 062010 000012 
9641 O62012 005015 O47105 O42524 ENTERA: .ASCIZ <15)<12>/ENTER DRIVE ADDRESS: / 
942 O62020 Oe0le2 051104 053111 
9643 062026 020105 O4e10i 051104 
9644 062034 051505 935123 OO0040 
9645 O6e042 047111 O40526 O44514 ADRERR: .ASCIZ /INVALID ADDRESS/<15><12> 
9646 0620050 020104 42101 051104 
9647 062056 051505 006523 000012 
9648 062064 005015 047520 OSel22 PORTAIS: .ASCIZ <15><12>/PORT A ADDRESS IS: / 
9649 062072 O40440 O4044O 042104 
9650 062100 O4eS22 051523 O44440 
9651 062106 035123 000040 
9652 Ob2ll2 005015 047520 052122 PORTBIS: .ASCIZ <15><12>/PORT B ADDRESS IS: / 
9653 062120 041040 O4044O 042104 
9654 962126 051523 o4444 
9655 062134 O35 1e3 000040 
9656 O52140 005015 054523 052123 NOCLOCK: .ASCIZ <15><12>/SYSTEM MUST HAVE °L’ OR °P’ CLOCK/<15><12><12> 
9657 O62146 O46505 O46440 051525 
9658 062154 020104 040510 gucseb 
| 9659 Obel62 Oe3440 023514 047440 
9660 062170 Oe0i22 OS0047 d20047 
9661 062176 046103 041517 006513 
S662 Obe204 O050le 
9663 062207 O12 047105 O42524 TESTNO: .ASCIZ <12>/ENTER TEST #: / 
| 9664 062214 O20le2 O4252e4 052123 
9665 O622e2 O2l440 020072 
9666 062227 111 053116 046101 BADNO: .ASCIZ /INVALID TEST NUMBER/<15><12> 
9667 062234 O42111 OS2040 051505 
9668 Obce42 O201e4 052516 041115 
9669 062250 051105 005015 000 
| 9670 062255 040 051105 047522 TSTERR: .ASCIZ / ERRORS/<15><12> 
9671 Ob2cb2 051 005015 000 
2678 062267 O15 pos01¢ 124 ADDRIS: .ASCIZ <15><12><12>/THE PRESENT ADDRESS OF THE RH11 (RHCS1) IS: / 
9673 062274 020105 0511 1505 
$674 047105 020104 042101 
| 9675 062310 051104 051505 Oe01e3 
| 9676 062316 043117 052040 O42510 
9677 Obe3e4 OS51040 030510 020061 
6 062336 051050 041510 030523 
| 96 020051 051511 020072 
| 9680 O62346 O00 
| S681 06e347 O12 047105 042524 NTRH11: .ASCIZ <12>/ENTER NEW RH11 ADDRESS: / 
| 
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NORESP: .ASCIZ <15><12>/THE RH11 DID NOT RESPOND WHEN RHWC ACCESSED AT ADDR: / 
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TELETYPE MESSAGES 


5p RRRRRAKAAL EEE E EE LELELELERE EAE LELELLALLEERERER LEE EEL ELERELE RE EERELE EEE 


-SBTTL TEST ERROR MESSAGES 
5p RRMA K ERA RR RRR EERE REE EERE SEER EEE REEL EAE EERE EEE EEE R EERE ERE EERE 


EM1: 


EMe: 


EM3: 


EM4: 


EMS: 


EM6: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 





/WRONG DRIVE TYPE/ 


/ORIVE NOT ON LINE/ 


“SERIAL NUMBER READ THRGUGH EACH PORT NOT THE SAME/ 


/ORIVE NOT SEIZED BY PORT/ 


/WRONG STATUS SEEN BY THE SEIZING PORT/ 








/REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED/ 
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-ASCIZ 


-ASCIZ 
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.ASCIZ 





/REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 





“REGISTER CONTENTS !RONG/ 





/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 





/DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND/ 





/READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 









VOLUME VALID SET ON THE WRONG PORT/ 
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~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


L15 


/ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET/ 


“ATTN BIT WRONG AFTER RELEASE - REGUEST SET/ 


/ATTN BIT WRONG AFTER RELEASE - REQUEST NOT SET/ 


/DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED/ 


/ORIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT/ 





/ORIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 
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EM23: 


EMe4: 


EMes: 


EMeE: 


EM2?7: 


EM30: 


-ASCIZ /TIMEOUT CLEARED THE DRIVE’S ERROR BIT/ 


-ASCIZ /RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET/ 


-ASCIZ /TIMEOUT ONE-SHOT DID NOT RETRIGGER/ 


-ASCIZ /DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 


-ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 


-ASCIZ 










M1 


/ORIVE SEIZED BY RELEASE COMMAND ISSUED WHEN DRIVE IN NEUTRAL/ 
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DERPPA.Pil TEST ERROR MESSAGES 
9306 O6447e 000 
9307 


9908 064473 104 O44S22 Riser EM31: .ASCIZ /DRIVE IN NEUTRAL AFTER RELEASE - REGUEST SET/ 


$317 peice 052101 tale 041040 EM32: .ASCIZ /ATTN BIT WRONG AFTER RECALIGRATE COMMAND/ 


9924 
ease 064621 104 O44See O4eS26 EN33: .ASCIZ /DRIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/ 


064706 O53111 20105 
064714 O42523 OS5111 O42105 
2936 OeH722 i 
2938 064723 10M QMYGEE OAGEB ENS: —.ASCIZ /DRIVE RETURNED TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED/ 
40 | 104 047504 
2341 O64744 OH70N0 D525 051124 


9951 O6S026 o44Se4 erie OS2517 EM3S5:  .ASCIZ /TIMEOUT ONE SHOT FIRED WITHOUT REGISTER ACCESS/ 


b 
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0 
$958 065100 O4%eS03 051523 


9960 065105 124 046511 O4750S5 EM36: .ASCIZ /TIMEOUT HAS NOT OCCURED WITHIN 2 SECONDS/ 
9961 O65lie OSeleS O44040 051501 
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SWITCH ON DRIVE NOT IN °A/B° 


find 
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/ATTN BIT FOR SEIZING PORT NCT CLEARED SY MASSSUS INIT/ 


“ATTN BIT FOR OPPOSITE PORT CLEARED SY MASSBUS INIT/ 
/ATTN BIT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/ 


/CAN’T ACCESS DRIVE THROUGH EITHER PORT/ 
-ASCIZ /THE ATTN SIT IS SET AFTER TIMEOUT WITH NO REQUEST & *ERR’ SET/ 
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10242 067770 O4e440 OSll22e 051117 
7776 








10243 06 005015 
ee pierce 0S2123 pera -ASCIZ “TEST @ EPR PC PORT & PORT av 
ie Gres Giltey Genie 
1 7 1 144 040 
10248 070030 O47S20 OSelé2e 021440 
ay Soo 5 DHY5 ASCII / PORT A PORT 8/<15><12> 
15381 avant BebeNe BS00s0 
1 0700S2 020040 
10253 G70060 OS1117 Oe0leY 920101 
insee 0700665 peers ihe 020124 
1 pee 124 os iste 124 -ASCIZ /TEST # ERR PC RHDS! RHDSI/ 
1 070104 O20043 O4e440 OSlle2 
10258 O70lle 050040 020103 051040 
10259 070120 O42110 030523 40 
10260 O7012e6 O51040 942110 3 
10261 erates 0090 
10262 13S 124 051505 DHSS: .ASCIZ /TEST # ERR PC PORT & TIMEOUT VALUE ‘IN MS)/ 
10263 070142 O42440 051122 
10264 9070150 020103 
10265 070156 051117 Oe0le4Y Oe0043 
10266 079164 046511 047505 
10267 070172 125 053040 046191 
10268 070200 O2404O0 047111 
inee3 0702068 O4644C Oe4S23 009 
ineek 070214 . EVEN 
10273 070214 001234 001116 O0l226 DTI: -WORD TSTNUM, SERRPC,PTNBR, S8DADR, SBDDAT,O 
10274 OOlle2 001126 000000 
| 10275 070230 OOle34 O01116 OOllee ODT3: -WORD TSTNUM,SERRPC, S$BDADR, SGDDAT, $8DDAT,O 
| 10276 070236 O0011e% O011e6 000000 
10277 070244 001234 001116 OO0le2e6 DTS: -WORD TSTNUM,SERRPC,PTNBR, SSDADR, SGDDAT, SBDDAT,O 
, 10278 O70eS2e OOlle2 OOlle4 OOlleb 
' 10279 070260 O000000 
10280 O70eb2 O0le34 O01116 OOle32e OTE: -WORD TSTNUM,SERRPC,OPPRT, SBDADR, SBDDAT,O 
10281 ra tay pol ies 1lle6 000000 
10282 001 1116 001230 OT?7: -WORD TSTNUM,SERRPC,SEIZPT,PTNBR, S8DADR, SGDDAT, $BDDAT,O 
10283 070304 O0lec6b liee O011e4 
| 10284 O70312 001126 000000 
' 10285 070316 001234 001116 001230 OT13: .WORD #TSTNUM,SERRPC,SEIZPT,PTNBR, SBDADR, SBDDAT,O 
| 10286 070304 OO0le26 OOllee O0lieb 
| ifbee Gragea bbiess 
i 10288 eisx 001116 001230 OT22: .WORD TSTNUM,SERRPC,SEIZPT,PTNBR,O 
| 10289 070342 lee6 000000 
: 10290 O70346 O01e34 001116 001230 DT23: .WORD #TSTNUM,SERRPC,SEIZPT,S8DADR,SBDDAT,O 
| 18886 Bopses potese poriie 
Pos 001 001116 001230 DT31: .WORD TSTNUM,SERRPC,SEIZPT,OPPRT,C 
10293 070370 OO0le32e o00000 
102e94 070374 001234 001116 001230 OT36: #.WORD TSTNUM,SERRPC,SEIZPT,O 
| 10295 070402 000000 
10296 070404 001234 O01116 O0le26 OT37: .WORD TSTNUM,SERRPC,PTNBR,O 
10297 9070412 000000 
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| 
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TEST ERROR MESSAGES 


001234 OO1116 
O01e34 001116 
001164 000000 
001234 1116 
1230 00 
les4 OC1116 


000009 
001162 
001232 
003230 


DTYe: 
DT4E: 


DTS4: 
OTSS: 


OF 1: 
DFS: 


5p REPRE RARE ERE L ERASE EEE RELA E ERE RE REEL EE ER EEE EEL LEER AEE EEE EES LEER EEE 
-SBTTL CONSTANTS, TABLES, ETC 

5p RARE ERE AERA ER RARE EER AEE REE EE EEE REE ELAR EA IEE EEE EEE REAR EERE EEE 
; TABLE OF TEST STARTING ADDRESSES 
- WORD 
oW 


TSTADR: 





- WORD 
. WORD 


- WORD 
« WORD 


-BYTE 
.BYTE 
-BYTE 


-BYTE 
-BYT 


- EVEN 
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TSTNUM, SERRPC, STMP2, STMP3, 0 
TSTNUM, SERRPC, OPPRT, SEIZPT,C 
TSTNUM, SERRPC, SEIZPT, TIME,O 


0,0,0,0,0 
0,0,0,0,0,0 
0,0,0,0,0,0,0 


0,0,0,0 


0,0 
C,0,0,1 


TST1+2 


T 
TSTebte 





‘STARTING ADORE 


ARTING 
i STARTING ADDRESS OF 
wld NG ADDRE 
{STAR TING ADDRESS 
s STARTING ADDRESS 
;START 


w 
wn 


RABRAARR 
mime 
w 


DRES T 24 
STARTING ADDRESS OF TEST 2S 
;STARTING ADDRESS OF TEST 25 
;STARTING ADDRESS OF TEST cb 
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MD-11-DERPP-A, 
DERPPA. Fil 
ioses Orbe 
10356 070602 
1h ee 
103539 070510 
10360 0706le 
ited Bebe 
D383 Bbese 
ieee 070622 
ise. Opdese 
10367 070629 
10368 9070632 
103639 070634 
19370 
10371 
1037e 
19373 070636 
10374 070637 
10375 070640 
10376 070641 
10377 O7064e 
19378 970643 
10379 070644 
10380 070645 
10381 
pees 970646 
é 


w 
2 





RPOY DU 
RSNSTONTS 


O00S46 
o00001 


CONTRO 
» TABL 


EeER LOcIC TEST - PART 1 MACYLI 27(732) 
ES, ETc 

ne TST27+2 
WO TST30+2 
«WORD TST3l+e2 
-WORD TST3e+e2 
-WORD TST33+2 
.WORD  TST34+2 
-WORD TST35+2 
.WORD  TST36+2 
.WORD TST37+2 
.WORD  TST4YO+e 
.WORD TST41+2 
. WOR TST4¥e+2 
.WORD  TST43+2 
WORD T4442 
.WORD  TST4S+2 
.WORD TST4b+e 

sATTENTION BIT TABLE 

ATABIT: .BYTE 1 
BYTE 2 
-BYTE 4 
-BYTE 10 
-BYTE 20 
-BYTE 40 
-BYTE 160 
-BYTE 200 

MAXTN: .WORD S$TN-1 
END 
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;STARTING ADDRESS 
;STARTING ADDRESS 
;STARTING ADDRESS 
;STARTING ADDRES 
;STARTI 
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UOUWIMWUIMWWUWIWIWWinWw 
eofotetototetatutatatatatatoy 
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; 
: START 
; 
TART 


Sssss 
Rmmmmmme 
43s 

aa a bas aa] 

S2BSBB 


wm 
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aw 
NOW CWO 
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sATTENTIO 
;ATTENTIO 0 
;MAXIMUM TEST NUMBER 
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tee 
oe 
Sh ue. 

RE=1 OOle2e4 1Sll@ 1929% 6124 6412 98352 98571 8769 98770 8895 8696 
= 100000 12808 233 338 2359 2365 2584 S88 260915 = 2853 
3048 3052 3073 3079 3159 3163 3184 3190 3206 210 
3324 3=— 3345S 3351 367 83371 3384 3388 3468 347e’ 3493 
87 3593 78 4«=63782 Ss 3805 0S 3811 996 4000 es 4 6‘es 


327. 7722 «= 772~Ss«79803'=—='«—«7907=Ss«B02Ss«O22 «Ss B0PESCCéON3Ss ON 
8185 8189 8206 8210 8233 8237 8371 8405 8409 98590 
8811 8834 8933 8937 8960 8966 
ATABIT 070636 1929 103738 
ATO = 000001 13138 
ATi = 000002 13148 
aT2 = 000004 13158 
AT3 = 000010 13168 
ATe = 000020 13178 
ATS = OO0040 13188 
ATS = 900100 13198 
Al? = o00e00 13208 
Aig = OO0400 12558 
Al? = 001000 12558 
BADNO 062227 1957 6668 
BAI = OOO0IO 12268 
BITO = QO0001 11938 
BITOO = 000001 11838 1193 
BITO1 = O00002 11828 3192 
BITO2 = Q00004 11818 1191 
BITO3 = O00010 11808 1190 
BITOY = 000020 11798 1189 
BITOS = GO0040 11788 1188 
BIT06 = GOO100 11778 . 1187 
BITO? = 000200 11768 © 1186 
BITO8 = O00400 11758 1185 
BIT09 = 001000 11748 = 1184 
BIT! = 000002 11928 
BITIO = 002000 11738 9145 
BIT11 = OO4000 11728 9111 
BITI2 = 010000 11718 
BITI3 = 11708 9152 
BITI4 = 040000 11638 
BITIS = 100000 11688 
BIT2 = 000004 11918 
BITS = OO0010 11908 
BITy = 900020 11698, 
BITS = 000040 11888": 





| 
| 





Beaha.bli” “chos® REFERENC 


SIT = 000100 
BIT? = 000200 
BITS = 000400 
BITS = 001000 
BPTVEC= OO0C14 
002560 
CLK 057264 
CLK1 057 
CKCLK2 057376 
CKCLK3 O5740E 
RR 001236 





CLOCK § 057416 
CLR = 000040 
CSF = 000002 
CSU = 000010 
DCK = 100000 
DCL = 000100 
DEi_ = 00040 
DFF20 = 000002 
DF 1 070460 
DF31 070502 
DF 36 
DF¥2 8970511 
DFS 070465 
DFSS 070513 
DF7 070473 
DH1 ObS464 
DH11 067126 
DH13 067177 
DH2ee 38 067317 
DHe3 = 067415 
DHee =: 067515 
DH3 066535 
DH31 067574 
DH36 = 86067673 
DHY 
DH¥2 = 067722 
DHY4 8067741 
DH46 0037 
DHS 066727 
pie 070135 
‘ 067003 


Lo] 
a9 
& 
" 

$3 
© 
Oo 
oO 
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11878 

11868 

11858 

11848 

12008 

ee 19698 
193 1943 
8983 89928 
8993 90008 

931 939 
15168  2040% 
eles ei4le# 
2824% 2954s 
3361% 3374% 
3918%  3922% 
4161e 4174e 
4468% 44S36% 
S0&s*x SO081* 
5959% S967% 
6661# 6674% 
7006% 7014% 
7681 7691 
B0S0% 8179 
8689% 68697% 
8987 8996 
lee8% 2057 
13508 

13528 

12998 

1394 

12708 

12668 

1562 1569 
1681 1711 
1625 1667 
1795 1802 
1590 1597 
1872 103178 
1583 1604 
1560 1567 
16i6 101658 
1595 1630 
1679 1709 
1686 1693 
102108 

1574 101208 
1730 §©10219%8 
l623 1665S 
1581 101278 
1793 1800 
1807 1023848 
1821 102508 
1588 1609 
1870 10e6e8 
1602 1644 
12678 


1991 

89838 

90028 

20S3* e20ss 
2el4s* 2158% 
e3bee e966% 
3378% 3391 
3935* 3948 
4e38% 4eSl1* 
4549% 4551 
Sc4be S2S9% 
$973 6152% 
6774% 6787 
7018% 7026% 
7699% 7701 
8192% s2e00* 
8703% 8711 
90078 

2078 3723 
1576 1618 
1732 1809 
1674 1703 
103168 

1611 1632 
1646 1653 
1779 1814 
1637 1835 
1863 101878 
1786 1828 
1672 1701 
1023548 

1737 1842 
1651 1658 


2061 2074% 2076 
2l60# 2173  2759% 
e979 e2981%  e2994# 
3687% 3700%  3704% 
3961# 3965%  3978% 
4W321% 4334% 4336 
4SS6# 4569% 4571 
S263% Se76%  S4ese 
6165% 6257#  6270% 
6793% 6801%  6807% 
7161% 7174% 7176 
785ee 7860% 7862 
Bels*# BYS6e  B8464* 
3941 4155-4372 
1688 1695 1781 
1823 865 103138 
1725 1746 1753 
1639 1739 1837 
1660 718 «103108 
101138 

1849 101724 

1656 101998 

1723 1744 1751 
101428 

1716 10150% 


2085 
e 


1758 


1765 
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2097% 2105* 
2784%  2786% 
3200% 3213% 
3743%  3747% 
4119 4124% 
4356 4378% 
4BS2e  46ES* 
S601*  S7é0* 
657S* 6583% 
6892x 6976* 
7203% 72l11% 
7882 8016% 
B484*  8492% 
7179 

1830 1858 
1774 103158 
103088 

1772 = 102318 


103068 












PPA.P11 


0 
062534 


11158 
Ss 
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9lees 


0 
10301% 
103038 


1603 


Hod 


1673 
102988 
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S144% 


1617 1815 1857 §= 102734 
1638 1836 1850 = 102854 


1780 1787 1829 102908 


1752 1766 38 10294# 
1759 1773 102968 


1738 1843 102778 
bars 


1645 6: 1652)~—Sss«1659~=Sss«1717”~—Ss—«2102 82 








1892* 
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DERPPA.P11 
EM30 =: OB437 
EM31 05447 
EM3e 06455 
EN33 064621 
EM34Y =: OB 47 
EMSS O0650e6 
EM35 =: O61 
EM37 =: O61 
EMY 062616 
EMYO  O6See4 
E 065301 


ay. 5 
mS 065563 
Em4e © O5642 
EM47 = 065711 
EMS 062647 
EMSO 0557 
EMS1 =O 
EMSS = 066145 
ENS3 066243 
EMS4Y = Ob6224 
EMSS  O66417 
EM b2715 
06301 
ENTERA DESbIs 
RR = O4000 
ERRVEC= 900004 
O0e410 
| EXT1 = 000001 
| ExT10 = 000010 
ExTe = 0000 
ExTeO = 000020 
/EXT4 = OOO004 
| EXT4O = 000040 


s  skeeeh 
| GO = 000001 
| GRY = 000010 
HCE = 000200 
HCI = 0020 
HCRC = 000400 
IRE = 002000 
IE = 00010 
ILF = 000001 
| ILR = O000 
IOTVECs 000020 
IR = 0001 
IX = 0040 


CROSS REFERENCE TABLE -- USER SYMSOLS 


Cc 
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S133 3315# 327 3e76% 3431 343S# 3Se6 3530% 3631 3635* 3649  36f3# 4068 
407E# oses 4ee9# 4500 Y4S04# 4694 open" 4830 4e8a4# 4975 mh a 5170 8S174# 


3 89e # 6088 3 
6936 6940 7lel 71eS* 7303 73078 7495 7469# 7613 76178 
0794 ay ‘97e 0s 797be® = B13Ss B139# )=68308 = B3le# §=68Se7 0s BS 3l* «698735 ) = «739% = BBB 


iz 
a 
: 


ee Re a ee ee aces | 
oa 4) ey 
ash Sire t mes 
ald E 
o- 
‘om 
! 
- — wo - ory 
4 8 8 5 Tw £¢ 
~oui-3 
i) 
o 
~“ 
- 
uw 
une 
ee 
wn 
wn 
tm) 
oO 
we 
wm 
or 
w 
un 
o 
Wo 
N 
oe 
un 
un 
2 
o 
o 
oOo 
We) 
m 
o 
oa 
& 
he 
co 
<= 
wo 








010006 le778 2132 2164 2269 2330 2519 2580 2775 281s 2849 3010 3044 
3155 64 68 3708 3751 3774 2886 3926 349 3332 4190 
40 4742 4764 4879 4901 5031 5097 5226 5292 S41! S456 $574 5615 
5789 5619 5940 5988 £018 6156 6179 62093 6261 6284 6314 6475 
7047 7232 7377 75293 7718 7833 B55 8229 8371 8401 8599 8620 8803 
a3 = 900400 le3ls 
= 900020 8 
MSE = 000020 13538 
MSTCK = 000010 13068 
MR = 13088 YY 
MF = O00] 12328 
NED = 919000 le3Se 2046 2059 2067 2071 
Nie = Speen {Sees 
NOATA = 1 18768 2359 e285 26093 2615 2878 2884 3073 3079 3184 3190 3345 
3493 3499 3333 3805 3811 4023 4029 4221 4227 4438 4444 44828 
4613 4618 4795 4800 4932 4937 5018s SO84se 5128 5133 S2i3s S2798 5323 
5228 5487 S452 5650 Seéss Seso cess 6049 6054 6240 6245 34S 6350 
6456 6461 66078 6644 $270 665Se 6825s BS6e 868 68738 7078 7263 
7268 7408 7413 7560 5 7749 7754 930 935 8097 8102 8280 
8432 2437 6651 8656 87918 8834 8840 B84Se 89178 8960 8965 89718 
i NOCLOC 1932 96568 
1968 96868 
15178 
| NTRHLI 1978 56818 
OCYL = 13968 
OFREV = 13738 
OF 100 = 13698 
GFe00 = 13708 
i OFeS = at 
| OF 900 = 13718 
; OFSO = 13688 
| OFB00 = 13728 
iOPI sz 12978 
| OPPRT 15148 22578 25078 3140# 3301% 3656% 3874% 44150% 43678 $j4730% 48672 So0c  S204# 
rH zaece 5729# Bene asest 6e73% 65263 6744% 6969% 7154% 73378 7489"  7647# 
} # esss* 1 10292 10301 
| OR z 12308 
PRR = ie 
|PAT lee7s 
| PC s Aisrs 930% eal 8346 86360 68498* s8565* 8579 8717# 9003% 9053% 90562  9070% 
5154# 1S# eSe* 9259*% 9264s 
PGE = 12338 
| 
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om = = 001000 12748 «621170 2119. * 2123 «2149s 1S 2 
2849 62970 43010 3044 3155 3316 3464 3558 3668 ###3708 2 3626 
3926 3 4190 4407 4742 4764 879 4901 5031 §99 Seohis«éCS 2982? 
S4i1 S456 Sti «S741 ~2=—s«S78S~—Sts«éS'819 0 $988 6018 6156 6179 #4246209 
£261 84 631 642 7047 «97232 «€©s«s7377”—'i‘«<2S2DSstéié‘7?71BéCtété‘7899~=Cé«‘«dGSC‘éwEGSSC*‘«é@KSGZ 
8401 8590 8620 8803 8929 
FIP = 020000 12788 
PIRQ = l7777e ll13e 
PIRQVES 000240 12078 
PLU = 020000 13628 
PORTA OO0lels 1088 1907 1908 1912 1915 1919 1925 192 2037 +2038 2083 2084 # éeilii1 
elle 2179 2252 2253 e266 2267 2331 2350 e352 2358 #2505 2506 #2507 
2531 2581 2600 e602 2608 e625 2739 2740 2747 «+2769 #%+%2770 # e850 
2889 2871 2877 e892 e953 3021 3022 30495 3064 3066 #3072 #+#3137~#3138 
3146 3147 3iS& 3175 3177 3183 3198 3199 3301 3317 333% 3338 3344 
3376 46. 3377 is NODC HHH S448 3465 3484 3486 4 6349206|638590—3578 
3580 3651 3652 3665 3666 3702 3703 3745 3746 ##=3765 #37668 £3775 
3794 «0«-379%8)—S is 3804)=Sss3872)Ss—i38730s—Ci388™7H—i‘is#90N’—‘is3ssoN OC 384%B—<“ié‘ézS7s—i iwi s«Y41Y 
4022 #4087 ##4O9S 4102 4103 4147 4i48 4ISE 4IBL 4182 4191 4210 4Yele2 
4220s aie 43 434 4367 440844 44 4437 44530 SHE 
4527 4612 4053 4712 894725 4726 4739 
4740 89-4755 uzee 4765 4784 #4786 4794 4849 4865 4866 #4867 4902 4921 
4923 «493s S010 3=—s_—« SOL 5035 S068 S067 #+SOoss  s089 
sos «= s«S117=«s«ésS119~=Ss«Sle7)—s—«édS88 © 4=©6—sSP0d)=s« Sede «=ss«iS2i9)s—«C« Seen Ss Se32 2S (iSe33CS244H Ss SHS 
5293 22ie S314 S322 5381 $397 5398 5399 S419 S¥20 = § 5476 $478 
S486 5557 5558 5571 5572 S610 S611 S6e0 5639 S641 5649 5711 
| S7e7 ©6—65728~—CSséS7 5753 5754 #579 #+j.$$793 #+%S803 5810 5811 S820 5839 5841 
5a49 (§910—ts—«éSSS S924 5937 $938 5981 5982 5994 5995 6019 6038 &§040 
6048 6106 6119 6125 6126 6168 #6182 6183 6193 6200 6201 #6210 6229 
6231 6239 £6255 be56 6272 46277 «3262878 «20S sibeS90—‘é SiS 3344 6344 
Fras esssevessC«u=sC7SRSC#GTR?=s«édeesCStSbBeSCBEL «ge? 
| 697 6995 6996 orte AG ake ake 7048 SoeP 7069 7077 #7139 
| no of ne fe fe fe fee fel a fe oe fee ee 
| 
$0 a0 771 331 7738 0 7748 7812 #7825 7826 7837 7900 
| 7318 7921 #7929 #7999 #7998 +#+#$37999 #g000 8057 #8058 8067 808% #8088 980% 
8153 619% 8195 8230 8249 8251 8259 8326 8337 8347 8348 98358 
8359 8364 #823685 98377 8378 #6402 84el 8423 8431 8S4S 8559 8563 98564 
8572 8553 8594 8604 8611 8612 8621 8640 8642 8650 98753 #98761 
eau’ Bee? 8825 8833 8879 86890 86899 8900 # §g901 8921 8930 8949 
| poerel Be ized ie, ieiee 1913 1914# 1917% 1922 2058 3 2143. 2144 = B81 
2ess $3u6 2e81 $382 ie 2246 soa 2364 2375 202 2503 £2516 
2517 coe 2596 2597 seid 2757 «e758 2B 2854 2865 2866 #2883 
saa e342 ead 5 3099 3060 306 3190 3160 3171 3172 
3133 ai 368 S30 at see 3633 1 354 32¢4 3235 3575 3230 
3654 3655 56 Seas 3686 3338 3339 3779 345 3791 3810 3869 3870 
3883 3884 3920 a7eh 3963 394% #3983 3984 7 400s 4009 4090 
4i220—=Ci«Ci«dQsCiSOCsCL 4206 4207 4Yeee 4236 4237 #4®+4307 #44319 #4320 4364 
i263 4373 4338 4412 = 442 4424 452 ise 4555 4587—ss«4#S98 
| He 4617 46 4651 4716 4 4729 476 4 4781 4799-4853 
4862 BES 4578 48774 4893 4906 4917 4918 4936 4997 5007 
| 5024 s0es sow soso S102 S113 S114 S132 $192 5204 
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S206 See9 $230 ace Seb Sebe 8 86§283 0 | See4 2S sCSe97 0s $308 = $3090 S327 0 0=s« S385 
5384 $395 S408 540 S44 ap, Se ee (ee ee F 
SS62 5582 4S $695 56% S654 5715 S7e% S765 S728 3/39 3/8e 
Yo RS vo ae S8e4 = $835—s«S§ ne >, — 5952 
99 5992 6009 6019 60 6034 6035 6053 6110 6133 6134 6140 
6141 6167 6172 6173 6185 6186 6214 6225 6e2e6 6bet4 73 
6305 63068 6319 6330 6331 6349 6403 6430 6441 6442 64 6515 
65e 46538 6539 6618 66¢9 6630 6649 6659 6660 6733 6741 674e 768 
6769 6836 6847 6848 6867 6958 6969 7004 $7005 
cs “43 86¢iSi ss 7iSe 0 —s 7350siCi7B fe Cee fewer CONS 
73050 (73370 7361s 73862 ‘sne)60CU faelC CUM 
ae 5 #4 5 74 765 £7355 7056 7723 7735 7816 
7829 «= 7830s 7871 0=Ss 7890s 7 7915 «7916S 7934S 7994 =~—Ss: B31 
6071 8082 8083 8101 8157 8161 98162 8163 68220 1 8245 868246 
8e64 8330 8340 82 8353 8354 8374 83 83 8393 
8417 8418 8436 8549 8556 8566 8567 18577 #+«*38578 #«+$zB583 8584 8596 
8597 8636 8655 8757 8764 8773 87 87 8795 
8819 8820 8839 8887 8945 8965 
PORTBI O62l1lé2 1921 §=6.: 96Se8 
PORTC OOleee 18108 19ecS# 1926# 19278 6118 6407 
PRE = 000020 13928 
PRO = 000000 11308 
PRI = 000040 11318 
PRe = 000100 lises 
PR3 = 009140 11338 
PRY = 000200 11348 
PRS = 000240 11388 
PR? = 000340 11378 
PSs = 177776 11108 = 1111 1683% 1939% 1970 2237# 2306% 2323 2487% 2eS556%  2S73# 
PSEL = 002000 12578 
PSU == 000001 13898 
PSK = 177776 llils 
PINSR O0l226 iSies  2038% el * 2096% 2112% 2144 22c56% 22678 2282% 2346% 23950%  2359% 
2364  2375% # 217%  eS3ek sc 8 2e608* e614  ecb2S# 275% 
2827# St hel # 883% # 2965# # 3060% 3064 3072  3078% 
3197% 3171% 3175% af # sign 1 a6 # Je40# # 3332% 3336% Jae 
3377 Ol# # bl * ene 41% 3574 3586%  359c# 
3655*  3666% * %# 729% 3746# S804# 3810%  3873% 
3921%  3947# 4# 3984 4“Ole# “eer 4103 44le3# 418ex  Ye0bs 
4210% uses 4e26# 4237% ayege 440% 4999% 4Wiese Weve 44978 bel 4535# 
el * 4“6lee 461 1# 4729% 4756% 4784# 4794s 
4799 4866s # * 4917% YSele 49318 4936% SOl1#  SOeS# # S$038%  SO4S* 
S067# S089% Sil3# 5117# Sle7# Siset Sede # S$2e30% 5233 # 
* aeott bf # ae S4e0# S448 S476% 5S486# 
S491# 1 oa i 11# i S649%  SéS4# # 5783% 
5796 %# SBll# be Ppaae Sesu# 592e7% 5S$938% $953 # 
5995# 600c¢# 6010 6038 bl *# 61e6# 6194" 6141% 6173% 6183%  6186% 
6193# lt it Kyi be # 6291% * # bl 
# %# 6445e 6455# 6 6551#  6629% * 6643# 49% 
# # 6851# l# 6867% 6878% 6996# 7005#  7017% 
7067#  7077% * 7161% 7190% # ceed Lt 7ebee 767% 7393% 
7 7407# 74lee bel Se 4#- 7649% — 7656% 7710% 
le i 7671% 7891# 7915% 19 79e9% 7934% 7999% 8032 
i et # # 6101% 8l6e# 8195#  Seel# # 8249% B8eb4*e  8345% 
B348% Ye 9% 8365+ < 8378% 8385% 8393%° 8417# BY2l# B8431# B436% 8564 
7# §8573%  8578# * eS94# 6597# 8604# 8612 #  B8640# % 8774 
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§795* 6819 8823# 8833* 8639% 6900 B892l% s94S* e949e e959* 896S5* 10273 10277 
10282 10288 102% 








1028S 
PWRVEC= 000024 le0e 
ROCHR = 104412 S440 =—_ «96188 
RDOLIN = 104414 S508 96198 
RDOCT = 104416 1906 §= 1951 1979-96208 
ROY = 00020u 1es4s 
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RHCS1 = rere 14108 Ee 





essls# 
756% 
RHCSe = 000010 siyae 


ee te ee ee ee ee ree ee ee 








Bee 


e-- 
00 0 
tJ 
~ 
<= 
~ 
ry «] 
= 







oy RABIES 


8S83 

87S4# 

8946 % 
e233 

2039 

ecb8 

e760 —s e761 
2368 3007 
3e18 3219 


BP iatiay AA 


neneeseocinse 


o 

rT 

ge 
r: 


ee 
Bags 


3 
1 





ReERROS 
CORRES 


Sena 
asieaes 


i772 
336 
4163 
4379 
4580 
4 
50 

% 

# 
5621 

17 

996 
6187 
6404 
pels 
eet 
a 


££ 
-_ 
a5 


eae 


SEIS HERE RE 
PERE 


: 
: 


sauna 
2 


aRaBS 


~. 
? 


pee 


3 
T~ 


= PART 1 MACY11 27(732) O4-O0CT-76 10:31 PAGE 214 
SYMBOLS 


R 


Babs 
qoaRE Gn OB see 


pt ee 
MK 


anpaang 


7153% 
7383 


Grrr 
nie 


uw 
—0 
bee 
wn 
aK 


ar as 


@ 


: 


BaReee 


ReBenenseg 








MO-11-DERPP-A, RPOY DUAL CONTROLLER LOGIC TEST - PART 1 MACY11 27(732) 
RPPA CROSS REFERENCE TABLE -- USER SYMBOLS 


RHER2 = 000040 
RHERS = 000042 
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eculs 


727% 
1 


579 
S841% 
5926% 
5990 


6040% 
6125* 
6185* 
255% 
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64S2% 
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6777 
68S8% 
6959% 
7007 
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=x00000e 9359 9399% 
3$2 | 


2 530 9s 63 958 
=x009003 3 9334% 
9386 35 9438 9442. ...... 
9330% 
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DE 

4259 

6689 

8910 
SW1_ = 000002 11648 
SW1O0 = 002000 114S¢ 
SW11 = O04000 11448 
SWl2 = 010000 11438 
SW13 = Oe0000 11428 
SW14 = 040000 11418 
SW1S5 = 100000 11408 
SWe = 000004 11638 
SW3 = 000010 1l6e8 
SW4Y == 000020 11618 
SWS = 000040 11608 
SW& = 000100 11598 
SW? = = 000200 11588 
SW8 == 000400 11578 
SW9_ = 001000 11568 
TBITVE= 000014 11988 
TOF = 000040 13548 
TESTNO O62207 1950 
TEST! 002764 2025 
TESTIO 013772 3437 
TESTI O1444e 3532 
TESTl2 O1Sile 3637 
TEST13 016514 3855 
TESTI4 O20116 4074 
TESTIS O21446 4291 
TESTI6 O2e776 4506 
TEST17 Oe4264 4700 
TESTe  O04316 2228 
TESTeD 025176 4836 
TeSTel 026110 4981 
TESTee 027314 5176 
TESTe3 030520 5369 
TESTe4Y 031554 
TESTeS 032610 5699 
TESTeS O340e4 
Testa oere 2479 
TEST3O baroee 
TEST31 40000 64 
TESTSe 041256 6717 
TEST33 O42554 6942 
TESTS4 043672 7127 
TEST3SS 045010 7309 
TEST36 045652 7461 
TEST37 O46514 7619 
TESTS 2730 
TEST4O 04751 7800 
TEST41 050504 7978 
TEST42e 051514 8141 
TEST43 O5eSe4 2 

ST44 O541ile S 
TEST4S 055500 8741 
OS6416 6867 
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6907 


2186 


4673 
7093 
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2495* 2557 

7506* 7520 

7666 

7847 

7520% 7573 

1973% 

8483 8497 
10277 10280 
10352 


O4-OCT-76 10:31 PAGE 219 


e566 


274S# 


9007* 10303 


7575 


8688 


10282 


8702 


10285 


2340 


8716 


10288 


3130% 


10290 


32914 


10292 


6536+ 


10294 





6754* 
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2 
TST =: O11 662 
TST? 012700 
TPs = Sp4at0 
TYPE = rit 
TYPOC = 104402 
TYPON = 104405 
TYPOS = 104404 
UNS = 040000 
USi = O9000 O01 
uS2 = 
Usd = OD00004 
UWR = OO0010 
VUF = 000002 
vu30 = 910000 
vv = 000100 
VWWSET = 009001 
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DERPPA.P11 
SELL 001174 
SCNTAG 001100 
SCM1 = 000001 
sone = go00ue 
= 909001 
SCM = 0° 2005 
SCNTLU 061400 
SCRLF 001201 
SOBLK 61100 
SDOAGN 057636 
SOTBL 061070 
SENDAD 057626 
SENOCT 057556 
SENONG 057642 
SENULL 057657 
SEOP 05751 
SEOPCT 
(SERFLG 0011 
| 
/ 
SERMAX OD111 
| SEPROR 
'SERRPC ODLLJ6 
ery pun 
| 060154 
, 0011 
| ool) 
eae 
| 1 
001120 
ScooAT 01124 
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5112% 


9176 


10299 
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9170 


10273 
10301 


9189 


2893 
3824% 
S141 
63628 
7581 
867% 


10275 
10303 


S2es4* 


eo/ae 


8712% 
8964% 


9194 


10277 


206S* 2068 20728 2089% 2090 


87 
10273 


9214 


3088 
4O4eR 
5336 
64728 
7763 
9107 


10280 


2101# 


S241 


8654% 
8777 
10275 


9467 


10282 


2102 


S247% 
414 
593 


8778 
10277 


9488 


2117% 


coco cocodo 
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818% 
10280 


9542 
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SYMBOLS 
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SEEN 
Renae 


See 
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44848 4486 We80s 4682 48168 4816 49S4e 486 4956 51498 134 S34S# $247 csccgs 
5510 728 5674 Ss7l8 $873 60718 6073 63678 63693 64778 6479 6639Ss 6697 
69148 6916 70998 7101 7e8S8 7287 74378 = =©67439 753908 7552 77718 7773 73538 
735s 61178 8119 82818 8283 es00e s8s02 87208 8722 ee4é8 8846 
SOCNT O680E60 * 93278 93408 
sores 060662 $293%  9ce97# 930S*# 9316% 92428 
SOV 060022 910s 911 Slees 
$PAss pole 14668 1946# S3051# 905e# 9060 9075 $113 9126 
SOUES 1200 15008 9161 3470 88 9539 9542 
SRDCHR 061110 S42ele 9618 
SRODEC= ##eee8 U 9621 
SROLIN 061144 94358 619 
SROOCT 061414 9so3 9620 
$RDSZ = 000007 94288 
SREGAD 001152 14698 
SREGO 001154 14918 
SRESRE 061612 95768 %22 
SRPADR 001270 15268 861941 1975 1982* 1984 2002 
C OOle7e 1$378 
061554 95608 21 
057662 1889 9052s 
SSETUP= 000027 18768 1889 1891 1893 1895 1896 1897 1899 9049 
$STUP = 177777 18768 
SSVLAD 060012 9102 91208 
SSWR = 166000 10788 1089 1095 1096 1097 1098 10393 1100 1101 1497 1498 1499 1896 
1897 1899 1900 2027 2230 2481 e732 2927 3119 34 3639 
3857 4076 4293 08 4702 4838 4 5178 5371 5534 570 5900 6096 
6389 6501 6719 eo4s 7129 7311 7463 7621 7802 7980 8143 8316 8535 
8743 —S69 $041 9050 9063 9075 go7S* 93086 90 9105 
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